UNCLASSIFIED 


_ AD  NUMBER _ 

AD880949 

LIMITATION  CHANGES 
TO: 

Approved  for  public  release;  distribution  is 
unlimited. 


FROM: 

Distribution  authorized  to  U.S.  Gov't,  agencies 
and  their  contractors;  Critical  Technology;  DEC 
1978.  Other  requests  shall  be  referred  to  Army 
Air  Mobility  Research  and  Development 
Laboratory,  Fort  Eustis,  VA  23604.  This 
document  contains  export-controlled  technical 
data . 


_ AUTHORITY 

usaamrdl  ltr,  30  jul  1971 


THIS  PAGE  IS  UNCLASSIFIED 


AD880949 


USAAVLABS  TECHNICAL  REPORT  70-64 

THE  LAMINAR  BOUNDARY  LAYER  ON  A  ROTATING  BLADE 
OF  SYMMETRICAL  AIRFOIL  SHAPE 


»y 

J.  C.  VHIiais,  ■ 
Virni  I.  Tmh|,  Ir. 


Itciahr  1971 


EUSTIS  DIRECTORATE 

U.  S.  ARMY  AIR  MOBILITY  RESEARCH  AND  DEVELOPMENT  LABORATORY 

FORT  EUSTIS,  VIRGINIA 


CONTRACT  DAAJ02-69-C-0086 
NORTH  CAROLINA  STATE  UNIVERSITY  AT  RALEIGH 
RALEIGH,  NORTH  CAROLINA 


This  document  is  subject  to  special 
export  controls,  end  each  transmittal 
to  foreign  governments  or  foreign 
nationals  may  be  made  only  with  prior 
approval  of  Eustis  Directorate,  U.  S. 
Army  Air  Mobility  Research  and 
Development  Laboratory,  Fort  Eustis, 
Virginia  23604. 


D  D  C 


Disclaimers 


The  findings  in  this  report  are  not  to  be  construed  as  an  official  Depart¬ 
ment  of  the  Army  position  unless  so  designated  by  other  authorized 
documents. 

When  Government  drawings,  specifications,  or  other  data  are  used  for 
any  purpose  other  than  in  connection  with  a  definitely  related  Government 
procurement  operation,  the  United  States  Government  thereby  incurs  no 
responsibility  nor  any  obligation  whatsoever;  and  the  fact  that  the 
Government  may  have  formulated,  furnished,  or  in  any  way  supplied  the 
said  drawings,  specifications,  or  other  data  is  not  to  be  regarded  by 
implication  or  otherwise  as  in  any  manner  licensing  the  holder  or  any 
other  person  or  corporation,  or  conveying  any  rights  or  permission,  to 
manufacture,  use,  or  sell  any  patented  invention  that  may  in  any  way  be 
related  thereto. 


Disposition  Instructions 

Destroy  this  report  when  no  longer  needed.  Do  not  return  it  to  the 
originator. 


t 


-  a ..  s  . 


DEPARTMENT  OF  THE  ARMY 
EUSTIS  DIRECTORATE 

U.  S.  ARMY  AIR  MOBILITY  RESEARCH  AND  DEVELOPMENT  LABORATORY 
FORT  EUSTIS,  VIRGINIA  23604 


This  report  has  been  reviewed  by  the  Eustis  Directorate, 
U.  S.  Army  Air  Mobility*  Research  and  Development 
Laboratory  and  is  considered  to  be  technically  sound. 

The  report  is  published  to  disseminate  information  which 
will  provide  a  stimulant  for  technical  exchange  and  the 
advancement  of  rotary-wing  technology. 


Task  1F162204A13903 
Contract  DAAJ02-69-C-0086 
USAAVLABS  Technical  Report  70-64 
December  1970 


THE  LAMINAR  BOUNDARY  LAYER  ON  A  ROTATING  BLADE 
OF  SYMMETRICAL  AIRFOIL  SHAPE 


Final  Report 


By 

J.  C.  Williams,  III 
and 

Warren  H.  Young,  Jr. 


Prepared  by 

North  Carolina  State  University  at  Raleigh 
Raleigh,  North  Carolina 


for 

Eustis  Directorate 

U.  S.  Army  Air  Mobility  Research  and  Development  Laboratory 

Fort  Eustis,  Virginia 


This  document  is  subject  to  special  export  controls,  and  each 
transmittal  to  foreign  governments  or  foreign  nationals  may 
be  made  only  with  prior  approval  of  Eustis  Directorate,  U.  S. 
Army  Air  Mobility  Research  and  Development  Laboratory, 
Fort  Eustis,  Virginia  23604. _ 


ABSTRACT 


A  theoretical  study  has  been  conducted  to  determine  the  effects  of 
rotation,  inflow,  and  forward  flight  on  the  development  of  the  laminar 
boundary  layer  on  a  helicopter  blade.  Particular  emphasis  was  placed  on 
the  determination  of  the  separation  line.  In  order  to  facilitate  the 
computation  of  the  inviscid  flow  about  the  blade,  an  11.9%-thick 
symmetrical  Joukowski  airfoil  was  used.  The  essential  feature  of  the 
analysis  was  the  scaling  of  the  chordwise  coordinate  so  that  the 
separation  line  is  invariant  with  span  and  time  in  the  transformed 
coordinate  system.  The  transformed  boundary  layer  equations  were 
expanded  in  an  asymptotic  series  in  span,  and  the  resulting  equations 
were  solved  by  the  method  of  Smith  and  Clutter. 

The  major  effect  of  rotation  is  a  delay  in  separation.  The  separation 
line  delay  is  most  pronounced  near  the  axis  of  rotation.  Forward  flight 
causes  an  oscillation  about  this  separation  line,  so  that  the  delay  is 
greatest  in  the  first  and  fourth  quadrants.  The  oscillations  are  affected 
by  the  blade  angle  of  attack  and  the  inflow  due  to  lift.  The  phase 
advance  between  the  wall  shear  and  the  free-stream  velocity  is  in 
qualitative  agreement  with  the  results  of  Lighthill. 

Rotation  alone  does  not  influence  the  separation  line  greatly.  However, 
its  combination  with  forward  flight  and  inflow  contribute,  at  least  in 
part,  to  the  increase  in  maximum  lift  observed  on  helicopter  blades. 
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n  n  n  n  n  n  n 


The  following  variables  are  defined  for  the  forward  flight  case  only: 

c  a  term  in  the  series  expansion  for  2  cos  (a  -  a.) 

n  a 

»n,  functions  defined  in  Equations  (51)  through  (54) 

P0  *  /  W0 


xv 


the  part  of  v.  that  does  not  depend  on  time 


a  term  in  the  series  for  x. 


a  c  5 

,  K' 

n  n  n 


terms  in  the  series  for  ti  ,  0  ,  and  u. 

a  c  6 


a  term  in  the  series  for  v 


The  following  symbols  are  used  as  subscripts; 

c  is  not  a  coefficient  of  the  subscripted  function 

I  at  the  stagnation  point 

i  induced;  concerned  with  the  induced  downflow 

k  is  a  coefficient  of  the  subscripted  function 

j  the  subscripted  function  is  to  be  multiplied  by  Tj 

where  j  *  0,  1,  2  ... 

n  a  coefficient  of  £  n  where  n  -  0,  1,  2  ... 

r  neither  va  nor  Tj  is  a  coefficient  of  the  subscripted 

function 

s  at  the  separation  point 

6  at  the  edge  of  the  boundary  layer 

The  following  symbols  are  used  as  superscripts: 

'  the  derivative  with  respect  to  n 

*  the  asymptotic  value  for  large  values  of  span 

nondimensionalized  with  respect  to  ft  and/or  c 


In  the  forward  flight  case,  terms  in  the  series  expansion  for  £  are 
denoted  by  the  first  numeral  subscript.  For  example,  p2l,  m  and  Gnj 
are  coefficients  of  s”2 ,  and  C-n,  respectively.  The  second  numeral 

subscript  (often  denoted  in  general  by  j)  indicates  that  the  function 
is  a  coefficient  of  ,  where  TQ  ■  1,  -  s^  sin  ’f1'  "  8h  008 
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The  double  numerical  aubscript  (often  denoted  by  nj),  or  a  single  0 
subscript,  also  indicates  that  the  function  is  independent  of  va,  8^,  C, 
and  i|>»  the  single  exception  is  G^,  which  has  the  components 


G  «  G  +  T  G 
0  00  1  01 
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INTRODUCTION 


The  separation  of  the  boundary  layer  near  the  leading  edge  of  an  airfoil 
in  two-dimensional  flow  produces  well  defined  and  easily  interpretable 
symptoms.  As  the  aerodynamic  angle  of  attack  increases  beyond  a  certain 
point,  the  lift  of  the  airfoil  does  not  increase,  the  crag  increases  more 
rapidly,  and  the  pitching  moment  becomes  large  and  negative.  These  three 
symptoms  characterize  the  two-dimensional  stall  of  an  airfoil. 

Experimental  measurements  have  shown  that  helicopter  rotors  do  not 
experience  this  type  of  stall.1  The  lift  does  not  decrease  at  the  expected 
angle  of  attack,2  but  the  drag  and  pitching  moment  are  more  nearly 
predicted  by  the  two-dimensional  situation.3'4 

The  helicopter  rotor  in  forward  flight  (translation  perpendicular  to  the 
axis  of  rotation)  has  a  constantly  changing  angle  of  yaw.  Spanwise  flow 
is  also  generated  by  centrifugal  and  Coriolis  forces.  Both  the  angle  of 
attack;  and  the  chordwise  velocity  vary  periodically  as  the  blade  rotates. 
Additional  time  dependence  is  introduced  by  feathering,  flapping,  and 
lead-lag  motions  of  the  blade.  Each  of  these  effects  may  contribute  to  the 
peculiarities  of  stall  on  helicopter  blades,  but  no  single  effect  has  been 
identified  as  the  cause.  Examinations  of  the  lift,  drag,  and  pitching 
moment  in  three-dimensional  (yawed)  steady-state  flow3  and  in  unsteady 
two-dimensional  flows4  have  r;hcwn  trends  that  suggest  that  yaw  and  time 
variation  of  the  flow  are  important.  Such  investigations  have  outlined 
the  effects  of  unsteady  and  three-dimensional  behavior  on  helicopter 
rotors,  but  the  cause  of  stall  is  to  be  found  in  the  boundary  layer.  This 
suggests  the  approach  of  the  present  work:  an  analysis  of  the  boundary 
layer  on  a  blade  that  is  simultaneously  undergoing  notation,  inflow  due  to 
lift,  and  forward  flight.  It  is  not  yet  feasible  to  include,  in  one 
analysis,  every  factor  that  influences  the  boundary  layer.  The  present 
work  is  valuable  in  evaluating  some  of  the  factors  that  influence  the 
boundary  layer,  and  since  separation  is  the  most  important  feature  of  the 
boundary  layer,  the  primary  interest  of  this  work  will  be  the  determination 
of  the  position  of  the  separation  line.  Most  experimental  work  has  been 
concerned  with  such  aerodynamic  characteristics  as  the  lift,  drag,  and 
pitching  moment.  There  is  a  need  for  experimental  measurements  in  the 
boundary  layer.  Except  for  some  measurements  of  surface  streamlines,5'6 
the  investigation  of  the  boundary  layer  has  been  analytical. 

The  consideration  of  rotational  effects  on  blades  begem  after  the  discovery 
by  Sears7  of  a  simple  but  powerful  potential  flow  transformation  for  the 
flow  about  rotating  blades.  The  application  of  this  transformation  to  the 
rotating  cylindrical  nonlifting  blade  reduced  the  potential  flow  problem 
to  an  easily  solved  two-dimensional  problem.  By  utilizing  this  potential 
flow  solution,  several  solutions  to  the  boundary  layer  problem  on  rotating 
blades  have  been  found  for  the  special  case  where  the  span  is  large 
compared  to  the  chord.  The  solutions  of  Rott  and  Smith8  for  wedge-type 
flows,  and  of  McCroskey  and  Yaggy9  for  the  1  .nearly  decelerating  flow,  are 
of  this  type.  The  assumption  of  a  large  spar -to- chord  ratio  simplifies  the 
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boundary  layer  equations  by  uncoupling  the  equations  which  govern  the 
chordwise  and  spanwise  flows.  The  chordwise  equation  then  becomes  the 
equation  for  two-dimensional  flow  and  may  be  solved  by  standard  techniques. 
Ckice  the  chordwise  flow  is  known,  it  is  a  straightforward  procedure  to 
determine  the  spanwise  boundary  layer  flew.  These  solutions  give  no 
information  on  the  effect  of  the  spanwise  flow  on  the  chordwise  flow,  and 
they  are  not  valid  as  separation  is  approached. 

S.  W.  Liu10  removed  the  restriction  of  large  span-to-chord  ratio  by 
expanding  the  velocities  in  a  series  in  the  spanwise  coordinate  and  then 
using  a  Blasius  series  technique  to  investigate  the  boundary  layer  on  a 
cubic  cylinder  for  several  positions  of  the  axis  of  rotation.  Although 
this  solution  presents  many  interesting  features  of  the  boundary  layers  on 
rotating  blades,  expecially  at  small  spans,  it  is  limited  in  that  the 
equations  solved  have  been  simplified  by  the  assumption  of  thin  blade 
sections.  The  solutions  are  not  valid,  therefore,  in  the  vicinity  of  the 
stagnation  point.  Furthermore,  it  does  not  seem  reasonable  that  the 
procedure  used  by  Liu  could  be  extended  for  use  on  a  realistic  airfoil 
(blade)  section,  since  it  is  well  known  that  the  Blasius  series  technique 
requires  a  large  number  of  terms  to  represent  the  boundary  layer  on 
practical  airfoil  sections.  McCroskey  and  Yaggy  applied  Liu's  method  to 
a  flat  blade  in  forward  flight.  Forward  flight  solutions  for  linearly 
decelerating  flows  at  large  span-to-chord  ratios  were  also  obtained.  This 
work  gives  considerable  insight  into  the  simultaneous  action  of  forward 
flight  and  rotation,  as  well  as  establishes  the  method  for  including 
forward  flight  in  the  analysis. 

A  solution  for  a  symmetric  Joukowski  airfoil  with  forward  flight  and 
rotation  was  found  by  Young  and  Williams.11  By  utilizing  a  series  in  the 
spanwise  coordinate  similar  to  that  of  Liu,  a  solution  that  was  valid  for 
small  values  of  span,  and  from  the  stagnation  point  to  near  separation, 
was  found.  The  variation  of  the  separation  point  with  time  and  span  was 
found  for  several  positions  of  the  axis  of  rotation,  but  only  the  zero 
angle  of  attack  (no  lift)  case  was  considered.  Centrifugal  and  Coriolis 
effects  were  found  to  be  most  important  in  the  strong  adverse  pressure 
gradients  near  separation.  Forward  flight  caused  the  separation  line  to 
oscillate  about  the  hover  (no  forward  flight)  separation  line.  Separation 
was  delayed  most  on  the  downstream  side  of  the  rotor  disk  because  of  the 
predominance  of  the  time  derivatives  of  the  nonsteady  flow.  The  effects 
of  forward  flight,  in  general,  were  greater  than  the  rotational  effects. 

By  examining  the  order  of  magnitude  of  the  terms  in  the  boundary  layer 
equations,  Dwyer  and  McCroskey6  confirmed  this  conclusion.  From  series 
solutions  on  a  rotating  flat  plate  in  forward  flight,  from  finite 
difference  solutions  on  airfoils  in  hover,  and  from  unsteady  two- 
dimensional  solutions,  it  was  concluded  that  the  unsteady  effects  and 
rotational  effects  are  larger  at  smaller  blade  angles  of  attack.  It  was 
also  suggested  that  the  chordwise  dimension  should  be  nondimensionalized 
by  the  span. 
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Beyond  the  preceding  investigations,  little  if  anything  has  been  done  to 
answer  pressing  questions  regarding  the  effects  of  blade  shape,  blade  lift 
(angle  of  attack),  forward  flight  velocity,  and  rotation  on  the  boundary 
layer  development  and  separation  on  a  blade  of  practical  airfoil  shape. 

The  present  investigation  considers  these  factors  analytically.  The 
boundary  layer  equations  are  expanded  in  an  asymptotic  series  in  spanr 
and  then  in  a  finite  series  in  time  by  utilizing  the  principle  of 
superposition.  The  chordwise  and  spanwise  stream  functions  are  governed 
by  a  series  of  two-dimensional  differential  equations.  These  equations 
are  solved  numerically.  The  velocities  at  any  point,  and  for  any  time, 
in  the  unseparated  boundary  layer  are  now  calculable.  The  equation  for 
the  separation  line  may  also  be  found.  The  effects  of  the  inflow  due  to 
the  lift  of  the  rotor  disk,  the  angle  of  attack  of  the  blade,  and  the  speed 
of  forward  flight  are  assessed. 


THEORY 


ASSUMPTIONS 

The  axis  of  rotation  is  taken  to  be  the  Z  axis  in  the  rotating  coordinate 
system  shown  in  Figures  1  and  2.  The  blade  rotates  about  the  Z  axis  with 
constant  rotational  speed  0  so  that  there  is  no  lead- lag  notion.  The 
blade  is  assumed  to  be  straight  and  rigid  and  to  have  no  twist  or  taper. 
This  restricts  the  blade  from  any  flapping  notion.  It  is  further  assumed 
that  the  blade  remains  normal  to  the  axis  of  rotation  (without  coning) ,  so 
that  the  Y  axis  remains  fixed  in  the  blade.  Both  the  X  and  Y  axes  rotate 
with  the  blade  so  as  to  define  a  plane  of  rotation  which  is  normal  to  the 
axis  of  rotation.  Translation  due  to  forward  flight  results  in  a  velocity 
Sh  which  lies  in  this  plane  of  rotation.  The  azimuthal  angle  ^  is  the 
angle  between  the  vector  SH  and  the  Y  axis.  The  blade  under  consideration 
is  only  one  of  several  blades  that  make  up  the  rotor  disk.  The  entire 
disk  will  induce  an  inflow  V^.  This  inflow  velocity  is  assumed  to  be 
parallel  to  the  axis  of  rotation  and  may  be  a  function  of  the  span,  but 
not  of  the  azimuthal  angle.  The  inflow  may  be  proportional  to  span,  or  it 
may  be  constant  over  the  rotor  disk.  That  is,  it  has  the  functional  form 


V 


i 


-v 


Both  Va  and  are  constants;  for  a  lifting  rotor  they  will  be  greater 
than  or  equal  to  zero.  If  is  not  zero,  the  potential  flow  is  no  longer 
irrotational. 


z 


Figure  1.  Rotating  Coordinates . 
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XR 


Figure  2.  Blade  Coordinates. 


No  attempt  will  be  made  to  account  for  end  effects  or  tip  vortices.  This 
is  equivalent  to  assuming  that  the  blade  is  infinitely  long.  The  blade 
length  R  cannot  be  neglected  entirely,  however,  since  it  must  be  used  when 
finding  a  relati<-r.  between  the  thrust  of  the  rotor  disk,  the  inflow,  and 
the  angle  of  attack  of  the  blade  (see  APPENDIX  I).  The  boundary  layer 
solution  must  not  be  applied  to  the  region  of  the  blade  near  the  tip.  The 
reverse  flew  region  must  also  be  excluded  from  consideration.  This  is  the 
region  on  the  retreating  blade  where  the  flow  is  from  the  trailing  edge  to 
the  leading  edge.  It  is  a  circular  region  in  the  plane  of  rotation 
represented  mathematically  by 


ny  +  s  sin  i>  <  o 

H 

A  cross  section  of  the  blade  is  shown  in  Figure  2.  The  geometric  angle 

of  attack  is  the  anile  between  the  chord  line  of  the  blade  and  the  X 

axis.  It  is  assumed  that  this  geometric  angle  of  attack  does  not  vary 
along  the  span  (the  Y  direction),  nor  does  it  vary  with  azimuthal  angle. 
This  precludes  any  consideration  of  feathering  of  the  blade,  when  there 
is  no  inflow,  only  the  forward  flight  'relocity  and  the  velocity  due  to 
rotation  are  present.  Both  of  these  velocities  lie  in  the  plane  of 
rotation,  and  thus  the  geometric  angle  of  attack  coinc  les  with  the 
aerodynamic  angle  of  attack.  If  inflow  is  present,  as  it  must  be  if 
lift  is  generated,  the  aerodynamic  angle  of  attack  will  be  the  angle 

between  the  chord  line  and  the  resultant  of  ‘the  inflow,  forward  flight, 

and  rotational  velocities.  The  component  of  forward  flight  in  the 
chordwise  direction  is  SH  cos  This  results  in  an  aerodynamic  angle  of 
attack  which  varies  with  azimuthal  angle.  The  velocity  due  to  rotation, 
given  by  ftY,  gives  rise  to  a  spanwise  variation. 
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In  order  to  denne  a  tractable  problem,  the  variation  of  the  aerodynamic 
angle  of  attack  due  to  blade  twist,  flapping,  feathering,  nonuniform 
inflow,  and  lead- lag  motion  has  been  neglected.  The  neglect  of  the 
spanwise  variation  can  be  assessed,  and  justified,  from  the  results. 

The  change  with  azimuthal  angle  presents  more  difficulty.  The  change  of 
angle  of  attack  with  time  is  a  difficult  problem  even  in  two-dimensional 
flow.  The  present  method  of  solution  can  account  for  the  time  dependence 
introduced  by  forward  flight  very  well,  but  this  effect  is  usually  small 
compared  to  the  effects  of  flapping  or  feathering.  The  failure  to  account 
fully  for  tire  change  of  the  aerodynamic  angle  of  attack  with  azimuthal 
angle  is  probably  the  most  restrictive  assunption  in  the  present  analysis. 
The  forward  tilt  of  the  rotor  disk  in  forward  flight  can  be  easily 
included  in  the  present  mathematical  formulation,  but  the  results  obtained 
would  not  be  realistic.  The  effects  of  tilt  are  partially  cancelled  out 
by  blade  twist  and  by  feathering  or  flapping.  Since  it  is  not  practicable 
to  include  the  cancelling  effects,  tilt  was  omitted,  hence  the  assumption 
that  the  forward  flight  velocity  lies  in  the  plane  of  rotation. 

Assumptions  have  been  made  that  would  not  be  justified  if  the  performance 
of  the  helicopter  were  to  be  calculated.  The  tip  vortices  have  a  definite 
effect  on  helicopter  performance,  but  since  this  is  not  a  boundary  layer 
effect,  their  neglect  is  justified.  The  flow  outside  the  boundary  layer 
is  assumed  to  be  incompressible  and  inviscid,  and  the  circulation  in  this 
potential  flow  is  calculated  by  the  Kutta  condition.  The  Kutta  condition 
is  chosen  for  convenience.  If  a  more  accurate  determination  of  the 
circulation  were  desired,  the  present  method  of  solution  for  the  boundary 
would  still  bo  valid. 

With  regard  to  the  Kutta-Joukowski  trailing  edge  condition,  one  should 
recognize  that  this  condition  is  only  an  approximate  condition  which 
accounts  for  the  viscous  origin  of  the  airfoil  circulation.  When 
separation  occurs  on  the  airfoil,  this  approximation  is  poor.  Unfor¬ 
tunately,  there  has  not  been  established,  as  yet,  an  appropriate  condition 
to  replace  the  Kutta-Joukowski  condition  when  the  separation  is  extensive 
or  when  the  separation  line  is  time  dependent. 

The  assumptions  that  have  been  made  lead  to  equations  that  are  solvable, 
and  the  results  will  contain  several  effects  that  have  not  been  considered 
in  the  previous  solutions  for  the  boundary  layer  on  rotating  blades. 

It  has  not  been  possible  to  include  all  the  factors  that  influence  the 
development  of  the  boundary  layer,  but  the  importance  of  same  of  the 
omitted  factors  can  be  better  assessed  from  the  results. 

POTENTIAL  FLOW  SOLUTION 


Before  solving  the  boundary  layer  equations,  it  is  necessary  to  furnish 
the  boundary  conditions  at  the  edge  of  the  boundary  layar  from  a  potential 
flow  solution.  This  solution  has  been  chosen  to  present  the  features  of 
the  potential  flow  that  significantly  influence  the  boundary  layer.  The 
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circulation  will  be  calculated  froei  the  Kutta  condition,  but  the  thickness 
of  the  boundary  layer  will  not  be  taken  into  account.  As  in  the  boundary 
layer,  the  flow  is  assumed  incompressible.  For  ease  of  calculations, 
results  will  be  found  for  a  symmetrical  Joukowski  airfoil.  Interest  in 
this  investigation  is  focused  on  the  boundary  layer  itself,  although  the 
method  of  eolution  could  be  applied  to  a  more  precise  determination  of 
the  potential  flow. 

The  inviscid  flow  over  a  rotating  cylindrical  blade  was  found  by  Sears 
and  Fogarty12  for  a  constant  inflow.  In  the  rotating  coordinate  system, 
the  velocity  vector  Q  must  obey 

V  •  Q  -  0  VXQ  -  -  2flk  -  fi^i 

The  first  of  these  equations  is  an  expression  of  conservation  of  suss 
(continuity  equation)  in  the  fluid  flow;  the  second  defines  the  rotation 
of  the  external  flow.  It  is  possible  to  write  Q  in  terms  of  a  potential 
function  ♦  and  a  two-dimensional  ntream  function  f, 

Q  -  ♦  $XT  k  (1) 

The  equation  for  the  rotation  of  the  flow  is  then  satisfied  if  T  ie  chosen 

as 

f  -  fl(x2  ♦  y2)/2  -  J^XZ  (2) 

To  include  the  effects  of  forward  flight,  ♦  is  written  as 

*  9  °0  *X  +  VL  *2  *  Y  (_nX  4  SH  CO*  Qt)  (3) 

where  0Q  ■  ftY  ♦  SH  sin  Qt. 

The  boundary  conditions  on  and  *re 

at  X2  ♦  Z2  -  -  ♦1  -  X,  *2  9  Z 

on  the  surface  of  the  airfoil; 
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(a  -  Oh) 


(a  -  ab) 


where  (a  -  ab)  is  ths  angle  between  ths  Z  axis  and  ths  noraal  to  tha 
surfaca  of  tha  blada. 

Tha  aquation  of  continuity  ia  satisfied  if  and  *2  two  diaanaional 
(in  X  and  Z) ,  and  if  thay  satisfy 


0 
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Thus,  and  «2  **»  tiim  two-dimensional  potantiala  for  flow  around  tha 
rotor  blada  saction  in  a  unit  straaai.  Tf  tha  rotor  blada  ganaratas  lift, 
thara  will  ba  a  circulation  included  in  tha  potential. 


Wondlmena lonali sing  tha  lengths  by  the  chord  of  tha  airfoil  c  and  tha 
velocities  by  Qc,  tha  velocities  bacoaa 


0 


ax 


V  -  #1  -  2X  ♦  sH  co.  t  ♦  w^Z  -  #2) 


a 


a£ 


Zn  order  to  find  tha  velocities  at  tha  edge  of  the  boundary  layer,  tha 
velocities  eust  ba  written  in  a  coordinate  system  fixed  on  tha  body. 

Tha  distance  along  tha  surfaca  of  tha  blada  x  ia  Measured  frae  the  leading 
edge.  Tha  s  dieansion  is  Measured  normal  to  tha  surfaca.  Tha  spauwise 
dimension  y  is  Measured  in  tha  spanwise  direction  froM  tha  axis  of 
rotation. 
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It  is  also  convenient  to  define  a  Cartesian  coordinate  system  that  is 
fixed  with  respect  to  the  blade,  as  shown  in  Figure  2.  The  XR  axis  will 
lie  along  the  diord  line  of  the  blade.  The  angle  between  the  X  axis  and 
the  XR  axis  will  be  the  blade  angle  of  attack  ab.  The  ZR  axis  is 
perpendicular  to  XR,  and  is  at  angle  ab  to  the  Z  axis  (the  axis  of 
rotation) .  The  origin  of  the  XR,  ZR  coordinate  system  is  the  point  where 
the  Z  axis  intersects  ihe  chord  line  of  the  blade.  This  intersection  is 
at  a  distance  XQ  from  the  leading  edge  of  the  blade. 

Finally,  it  is  convenient  to  define  two  new  potential  functions  in  the 
new  XR,  ZR  coordinate  system.  In  this  system,  $a  is  the  two-dimensional 
potential,  on  the  surface,  for  a  unit  stream  in  the  chordwise  direction, 
and  $p  is  the  two-dimensional  potential,  evaluated  on  the  surface,  for  a 
unit  stream  normal  to  the  chord.  There  is  no  circulation  in  4>  ,  but 
matching  the  Kutta  condition  requires  a  circulation  in  (f>p .  The  velocities 
at  the  edge  of  the  boundary  layer,  ufi  and  -v  ,  are  now  given  by 


u,  =y0  +  v  Q  +  T  Q 

o  a  a  c  2  e 

(4) 

V6  =  *a  +  T1  " 

Xr(2  cos  +  on  sin  o^)  +  ZR(-2  sin  +  on  cos  0^) 

(5) 

where  T  =  1, 

T1  =  SH  cos  t,  T2  =  SH  sin  t 

vi  =  "  va  "  “i* 

°a  =  8<^a/3x'  Qc  =  3<J>c/3x»  0e  =  3<(>e/3x 

=  (cos  “b  +  0lb)  $a  +  (sin  -  an  cos  a^)  <J>^ 

*c  =  sin  “b  “  %  003  ab 
*e  °  *o  cos  ab  +  *p  sin  ab 

Once  ij)a  and  <J>p  are  found  as  functions  of  the  body  coordinate  x,  the 
velocities  at  the  edge  of  the  boundary  layer  can  be  evaluated.  All 
velocities  and  lengths  in  the  remainder  of  this  section,  and  in  the 
following  sections,  cure  nondimensional. 

For  ease  of  calculating  <f>a  and  <j>p ,  a  symmetrical  Joukowski  airfoil  will 
be  used.  The  parameter  e  is  related  to  the  thickness  of  the  airfoil; 
the  value  e  =  0.092  gives  an  11.9%-thick  airfoil.  This  thickness  was 
chosen  so  that  the  airfoil  would  closely  resemble  an  NACA  0012  airfoil. 
The  NACA  0012  is  widely  used  for  helicopters.  It  is  less  blunt  •  ar  the 
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leading  edge  and  is  flatter  near  the  quarter  chord  than  a  Joukowski 
airfoil.  To  lessen  these  differences ,  the  Joukowski  airfoil  was  chosen 
to  be  thinner  (11.9%  thick  as  compared  to  the  12%-thick  NACA  0012). 

In  terms  of  the  parameter  o,  the  potentials  are 

$  ■  (1  ♦  c)  a/2 

a 


*  -  (1  ♦  E)[sVl  -  o2  -  tan-1  (S  Vi  -  o2/o)]/2 

P  9  9 

where  S  •  +1  denotes  the  upper  surface  of  the  airfoil 
9 

S  -  -1  denotes  the  lower  surface  of  the  airfoil 
9 

The  parameter  a  is  given  as  a  function  of  x  by 

o 

“  -  B(o)  ,  X  -  /  B  do  (6) 

-1 


dx 

where  B  «  - —  /  cos  a 

oc 


tan  a 


“ o 

dx 

o 


X  -  (o  -  till*  — - )  ♦  X-y-- 

04  1  ♦  c2  -  2co  2 


VT77 

4  9  .  .  2 


Ill 


1  ♦  c  -  2to 


The  angle  a  is  the  angle  between  the  normal  to  the  surface  and  the  Zg 
axis.  X0  and  Z0  are  the  coordinates  of  the  airfoil  surface  in  the 
XR,  ZR  coordinate  system. 

Considerable  simplification  can  be  obtained  for  certain  special  cases. 

A  solution  is  available  for  the  rotor  blade  at  taro  angle  of  attack  and 
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no  Induced  flow  (ab  ■  0,  ■  0)  in  Young  and  Williams, 

the  velocities  at  the  edge  of  the  boundary  layer  are 


For  this  case. 


v(y4  V  aa 


V.  -  A  ♦  T,  -  2X 
6  To  1  o 


This,  in  turn,  is  contained  within  the  special  case  of  forward  flight  with 
constant  induced  velocity  -  0),  for  which 


u,  ■  yQ  ♦  v  Q  ♦  T  Q 

6  a  a  c  2  a 


V«  "  +  T1  •  2X0  °°*  °b  ■  22o  8in  “b 

♦a  "  ♦o  008  “b  +  \  8in  \ 

♦c  "  ♦o  8in  °b  “  008  “b 


In  the  case  of  hover  (sH  «  0; ,  it  is  eore  convenient  to  allow  the  induced 
velocity  to  be  proportional  to  the  span  (v  -  0) .  In  this  case. 


vfi  -  -  Xg  (2  ooe  sin  a^)  ♦  Zg(-2  sin  cos  a^)  (12) 


In  order  to  calculate  Xg,  Z_,  ♦  and  4p,  it  is  necessary  to  specify  the 
airfoil  shape  (in  all  examples  herein,  a  Joukowski  airfoil)  and  the 


airfoil  shape  (in  all  examples  herein,  a  Joukowaki  airfoil)  and  the 
airfoil  thicknesa  (always  11.9%).  The  only  purpose  of  finding  the 
potential  flow  is  to  furnish  the  boundary  conditions  on  the  velocities 
ug  and  Vj.  These  depend  on  the  choices  made  for  the  constants  o^,  u>^ 
and  Xqi  once  these  are  specified,  the  boundary  layer  equations  nay  be 
solved.  The  general  theory  in  the  next  section  is  applicable  to  both  the 
hover  case  end  the  forward  flight  case.  In  succeeding  sections,  advantage 
le  taken  of  the  simplifications  in  u$  and  v^  that  occur  in  the  above  two 
cases. 
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BOUNDARY  LAYER  EQUATIONS 


By  making  the  usual  boundary  layar  assumptions,  the  Navier-Stokea 
equations  can  be  reduced  to  the  simplified  equations  for  the  boundary 
layer  on  a  rotating  blade:9 


3u  3v  3w  A 

57*  57*  37' 0 


(13) 


3u  ,  3u  ,  3u  ,  3u  ,,  .  .  .  3  u  .  _  2 

^ +  u  r* +  v  37  +  W  3l  -  2(V  -  V«)  co*  (0  -  V  -  V  ^2  / nc 


3ua  3ufi  3ufi 

+  Ud  x  +  V6  y 
3t 


2 

3v  A  3v  A  3v  A  3v  A  .  .  .  3  v  ,  _  2 

£  +  U  te  +  V  37  +  "  37  +  2(U  “  V  e0B  {“  ‘  V  "  *  ^2  /  00 


(14) 


3v6  3v6  3v5 

9-  *  U«  37“  *  Vd  3y 


(15) 


The  boundary  conditions  for  these  equations  are: 


at  s  »  0  u-v-w-0 


at  a  -  •  u  »  ufi,  v  » 


These  equations  differ  from  the  usual  unsteady,  three-dimensional  boundary 
layer  equations  in  the  terns  that  give  the  Coriolis  acceleration.  These 
terns,  involving  the  product  of  velocity  and  cos  (o  -  a*,) ,  appear 
explicitly  because  the  equations  are  written  in  a  rotating  coordinate 

system. 

As  the  span  increases,  there  is  little  change  in  the  s panvise  flow.  The 
potential  flow  in  the  spanwise  direction  u^  is  independent  of  span.  Tine 
dependence  is  introduced  into  the  equations  by  the  forward  flight  speed, 
which  is  ^lso  independent  of  span.  However,  the  chordwise  velocity  due 
to  rotation  is  proportional  to  span.  Thus,  at  large  values  of  span,  the 
chordwise  flow  is  dominated  entirely  by  the  flow  due  to  rotation,  and  both 
tins  dependence  and  the  spanwise  flow  bacons  negligible  in  the  chordwise 
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momentum  equation.  It  is  not  that  the  spanwise  flow  and  time  dependence 
have  become  so  email,  but  that  the  chordwise  flow  due  to  rotation  has 
become  so  large  when  the  span  is  large,  that  the  effects  of  spanwise  flow 
and  time  dependence  are  relatively  small.  The  underlined  terms  in  the 
equations  may  be  neglected  at  large  values  of  span.  Typically,  the  effect 
of  spanwise  flow  is  negligible  in  the  chordwise  equation  at  values  of  span 
greater  than  three  to  ten  chord  lengths  and  at  time  dependence  from  five 
to  fifteen  chord  lengths.  Over  a  significant  portion  of  a  typical 
helicopter  rotor,  the  boundary  layer  flow  is  governed  by  the  asymptotic 
solution  at  large  span.  The  chordwise  flow  in  such  an  asymptotic  solution 
is  given  by  the  steady,  taro-dimensional  equations,  and  thus  separation 
occurs  at  the  same  point  as  in  two-dimensional,  steady-state  flew. 

Figure  3  shows  the  separation  line  approaching  the  two-dimensional  value 
at  large  span. 


Figure  3.  The  Separation  Line. 

The  solution  at  smaller  values  of  span  is  found  by  expanding  the  stream 
functions  in  an  asymptotic  series  in  the  span.  This  may  be  done  most 
simply  by  allowing  the  first  term  in  the  series  (or  the  first 
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approximation  to  the  solution)  to  be  the  two-dimensional  solution  at  the 
same  chordwise  position.  In  Figure  3,  if  this  tochnique  is  used,  the 
first  approximation  to  the  velocity  profile  at  point  1  is  the  profile  at 
point  2.  The  profile  at  point  2  is  in  the  separated  region.  The  profile 
at  point  2  is  difficult  to  obtain,  and  once  it  is  found,  it  will  be  a 
poor  first  approximation  to  the  profile  at  point  1. 

A  superior  technique  for  finding  a  first  approximation  to  point  1  has  been 
devised.  The  X  coordinate  may  be  transformed  into  the  £  coordinate.  The 
£  coordinate  is  stretched  as  span  decreases  so  that  point  1  has  the  same  £ 
coordinate  as  point  3.  Point  3,  like  point  1,  is  in  the  unr.eparated 
region.  The  £  coordinate,  if  chosen  so  that  the  separation  line  always 
occurs  at  the  same  value  of  £,  say  £s,  will  give  a  much  better  solution 
near  separation.  If  time  dependence  is  introduced  by  forward  flight,  then 
the  £  coordinate  will  expand  and  contract  with  time  as  well  as  be  dependent 
on  the  span.  The  transform  from  x  to  £  is  accompanied  by  a  complete 
coordinate  transform,  which  is  given  by 

£  -  (x  -  Xj  (y,  t)]  q  (y,  t)  ,  £  -  y  (16) 


n  ■  cz"\/  flufi/v  (x  -  Xj)  ,  ■  t 

u  ■  u{  f'  (£,c,n,*)  ,  V  -  g'  (£,C,n,<|>)  (17) 

w  -Vv(x  -  Xj)/ftu6  w(£,£,n,if»)/c 

In  the  transformed  system,  the  boundary  conditions  become 

at  n-0  f-f'-g-g'  -  w-  0 

at  n  -  “  f'  ■  1  ,  g'«Vj 

The  primes  denote  differentiation  with  respect  to  n.  The  £,  £,  n 
coordinate  system  has  the  sami  orientation  as  the  x,  y,  z  system,  but  the 
dimensions  are  stretched.  For  example,  the  n  direction  is  the  same  an 
the  z  direction)  it  is  normal  to  the  body.  The  o  coordinate,  however,  is 
stretched  by  the  familiar  Falkner-Skan  factor”^  u^/vx.  This  factor 
accounts  for  the  dependence  of  the  boundary  layer  height  on  Uj,  v,  and  x. 
The  stretching  of  the  £  coordinate  to  account  for  the  position  of  the 
separation  line  is  accomplished  by  including  the  factor  q.  If  q  is  chosen 
correctly,  the  separation  line  will  have  the  constant  location  £a  for  all 
values  of  £  and  i (/.  Since  the  separation  line  is  not  yet  known,  q  cannot 
be  found  inmediately .  Instead,  q  will  be  written  in  the  form  of  a  series 
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in  1/c,  with  the  coefficients  in  the  series  still  undetermined .  After 
solving  a  series  of  differential  equations,  these  coefficients  will  be 
determined  from  the  condition  that  the  separation  line  be  invariant  with 
£  and  i p. 

The  choice  of  Xj  determined  the  origin  of  the  £  coordinate.  It  is  most 
convenient  to  let  Xj  be  the  position  of  che  stagnation  point  in  the  x 
coordinate  system.  It  will  usually  be  a  negative  number;  it  is  defined 
as  the  value  of  x  at  which 

u<5  "  0 


For  this  choice  of  x^,  the  stagnation  line  will  be  given  by  £  «  0. 

The  velocities  have  been  written  in  terms  of  stream  functions.  The 
stream  function  for  flow  normal  to  the  surface  w  can  be  eliminated  through 
the  continuity  equation.  The  stream  functions  for  chordwise  flow  (f)  and 
for  spanwise  flow  (g)  are  given  as  functions  of  £,  £,  n  and  if;  by  the 
simultaneous  equations 


“« i-f" 


•  ♦  tr  -  cr  f£>  .  c»s  ^  if2  -  iff"  -  i) 


.  ,(t  la .  a!  !!t,  i  it .  sat .  c  1£ 

«  at  «  at  <8{  2E  at  s* 


+  £  (gl  Ml  _  f«  Is.)  +  (5.  iSl  _  53.  -)  £  (g»  M - f»  13.) 

^  '9  3£  *  3£;  q  3y  £  3y  1  *  3£  3£; 

3x  £&  £Q 

+  2£  £Mg  3T1  +  -f  Ti(f'  +  J  f"  -  1)  +  (g'f  +  J  f"g  - 


-  2  *  (g'  -  v.)  cos  (a  -  a,  )  -  0 
q  o  b 


u{  -  J  f9'  +  «(f  If  -  9"  If)  -  -j®  -  |  sin  (o  -  V 

*  2f  |  co.  (a  -  ob»l  +  |  V2  -  J  EuS  aT  £’" 


+  if  "  If  + 


(5.1a.  5a 
*  at  5 


Isl  + 

H 


lal 
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0 


(19) 


»  3k. 

(i  |a  .  ai  __i 


'q  3y 


£  3v 


)  (  (9' 


ill 

ar 


|a,  .  |a  .  ?i  !fi 


£0  £0 
♦  X" *  "T  nTig"  ’ 


Fro*  this  point  on,  the  developments  of  the  hover  case  and  the  forward 
flight  case  differ,  hut  the  general  method  is  the  same.  The  stream 
functions  are  expanded  in  asymptotic  series  in  l/£.  Also,  functions  such 
as  Q#  and  q  are  converted  to  functions  of  £,  ;,  and  and  expanded  in 
series.  The  boundary  layer  equations  then  become  a  series  of  equations. 
The  details  of  these  calculations  are  outlined  in  the  following  sections. 


HOVER  CASE 


In  the  hover  case,  the  forward  flight  speed  sH  is  zero.  It  will  simplify 
the  solution  considerably  if  the  constant  part  of  the  inflow  is  eliminated. 
For  the  hover  case,  therefore,  the  induced  velocity  is  taken  to  be 
proportional  to  span,  i.e., 


v 


i 


y 


This  case  is  considerably  simplified  by  the  elimination  of  time  dependence 
aitd  by  having  a  constant  aerodynamic  angle  of  attack  aa.  The  geometric 
angle  of  attack  ox.  the  blade  afa  (the  angle  between  the  chord  line  and  the 
plane  of  rotati  on)  is  constant  by  assumption.  The  aerodynamic  angle  of 
attack  is  than 


-  Vi/00 


U). 


(20) 


for  ssiall  values  of  w^.  This  makes  the  position  of  the  stagnation  point 
Xj  constant.  The  value  of  xj  is  found  by  determining  the  value  of  x  at 
which  ug  is  equal  to  zero.  This  gives  a  value  of  o  (o  is  the  parametric 
variable  for  x)  at  the  stagnation  point  o^. 


0j  -  (1  -  L2)  /  (1  +  L2) 

L  -  -(1  +  tan  c^)  /  (tan  -  u^)  (21) 

If  L  <  0,  the  stagnation  point  is  on  the  underside  of  the  airfoil,  and  Sg 
is  taken  to  be  -1.  In  body  coordinates,  the  stagnation  point  is 
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X 


I 


/  B  do 
-1 


with  S  -  L/|l|  . 

g  1  1 

It  is  convenient  to  define  the  following  functions  of  x: 


C 


c 


2  cos  (a  -  a^) 
- 


H  -  (x  -  Xj)  Q# 


C 


e 


“i  ”  xl^  iin  “  °b^ 


M 


X  -  x,,  dQ 
_ I  _ a 

a  dx 
s 


These  functions  appear  in  the  boundary  layer  equations.  Before  solving 
the  boundary  layer  equations,  the  functions  of  x,  y,  and  z  must  be 
converted  to  functions  of  £,  ; ,  and  n«  Since  the  transform  between  the 
two  coordinate  systems  contains  the  function  q,  this  function  must  be 
chosen  before  solving  the  equations.  The  first  step  in  preparing  the 
equations  for  solution  is  to  decrease  the  number  of  independent  variables 
from  three  to  two.  The  variable  C  will  be  eliminated  from  the  equations 
by  expanding  the  dependent  variables  in  infinite  series  in  1/C.  The 
coefficients  in  the  series,  in  general,  will  be  functions  of  £  and  n. 
First,  the  stream  functions  will  be  expressed  as  infinite  series  in  C  as 
follows : 


f'  ‘  l  F2n  t"2"  (22> 

n«0 

OP 

g’  -  l  G'2n  r2n  (23) 

n-0 


where  the  Fn  and  Gn  are  functions  of  £  and  n.  The  series  is  infinite,  so 
the  accuracy  of  the  solution  will  depend  on  the  number  of  terms  retained 
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and  the  rapidity  of  convergence  of  the  series.  In  order  to  expand  the 
functions  Cc,  Cs,  H,  P,  M,  ua  and  v„  as  functions  of  £,  the  form  of  the 
function  q(y)  must  be  chosen.  The  function  q  will  stretch  the  chordwise 
dimension  E  so  that  separation  will  always  occur  at  the  same  value  of  E» 
say  Eg.  The  criterion  for  separation  is  taken  to  be 


f"Uo  =  0  “  F0  +  ^  + 


For  the  separation  to  be  independent  of  E,  it  is  required  for  all  n  that 


p;i  - 0  at  « - «. 

n=o 


(24) 


This  is  not  a  requirement  that  separation  occur  at  the  same  point  along 
the  chord  or  that  it  be  independent  of  the  span.  The  spanwise  dependence 
of  the  separation  will  be  removed  from  the  equations  and  expressed 
explicitly  in  the  function  q.  The  relation  between  the  physical  chordwise 
dimension  x  and  the  transformed,  stretched  dimension  E  is 


x  =  £/q(y)  +  Xj 

Thus,  since  Ea  is  independent  of  E ,  the  position  of  the  separation  line 
in  physical  dimensions  is 

x  =  E  /q  (y)  +  x  (25) 

s  s  1 


By  intuition,  and  by  trial  and  error,  an  appropriate  form  for  the 
arbitrary  function  q  has  been  found  to  be 

q  =  1  -  K2y2  +  ...  (26) 

The  constant  K2  will  be  determined  after  the  equations  have  been  solved. 
The  functions  Cc,  Cs,  M,  P,  H,  &a,  and  v^  are  all  functions  of  (E/q  +  vx) , 
and  they  can  be  expanded  in  series  in  the  following  manner: 

00  00 

Cc=  l  c2n  E_2n  H  -  l  h2n  s" 2n  (27) , (28) 

n=0  n=0 


18 


_a  r  •  -2n 

c  ■  l  '■>„ « 


M-  l 


(29) ,(30) 


v<  ’  l  v2n  '' 


•  l  U2„' 


!  -2n 

2n  *• 


(31), (32) 


P  -  [  P_  c* 

L  2n 


These  functions  depsnd  on  the  values  of  a  and  #a  obtained  from  the 
potential  flow  solutions.  Once  the  constant  parameters  u>^,  ab  and  Xg  are 
chosen,  the  techniques  of  a  Taylor  series  can  be  applied;  for  example, 

dP(t  ♦  x  ) 

p(Cq  +  Xj)  -  p(5  +  xI)  +  x2  ^  d(5  +  /  C  ♦  ••• 

Now  tliat  the  c  dependence  has  been  expressed  by  an  infinite  series, 
the  governing  equations  becoaw  an  infinite  set  of  equations  in  C  and  n. 
Retaining  only  the  first  two  terms  of  the  velocity  series  yields 

m  +  1  3F’  3F 

■  po”  ■  -V-  VS  +  Vo  -  -0  +  <<PS  JT  -  F0  JT]  m  0  (34) 

■0  ♦  1  3F  3G' 

-  G'"  -  (-2 - p  ♦  F  — -£)  G"  +  £F'  — —  -  h  (1  -  cCF')  -  c8  ■  0  (35) 

0  1  2  0  4  H  1  0  4  0  3£  O1  0  0  o  1  ' 

m  +  1  3F  3F'  m  +  i 

“P2’ '  -  F0  +  5  3T>  P2  +  (2VS  +  5  TC]  P2 - 2  V2 

*  t(Fi  ST  -  FS  5T»  *  "2(riJ  -  1  -  1  FoV 


+  polGopo  "  v0  +  7  poGo  "  co(Go  "  vo)]  "  0 
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(37) 


♦  1 


-  G"  *  -  {— - 

2  '  2 


3F  3G' 

F  *  C  — — )  G"  ♦  £P‘  — - 
0  '  3C  2  l0  3C 


-  r- 


♦  1  3F2  B2  Pq  3G‘ 

-Vir'i-'.-rV  °5  *  'Fi  tt  -  V1  -  #i> 


♦  vc2f;  *  eor2>  - c!  • 0 


The  boundary  conditions  are 

.t  n-o  -  V  rj  -  GJ  -  0 
“  "  *  *  To  m  1  •  Fi  ■  0  ,or  3  *  1  >  °3  ■  VJ 


At  (  ■  0,  the  product  0aFi  has  a  finite,  non-zero  value.  Since  Z  •  0 
is  the  stagnation  point  or  the  potential  flow,  Q#  -  0  there.  However, 
rotational  effects  cause  a  snail  flow  in  the  boundary  layer  there,  and 

f  *  u/V^a 


A  singularity  in  the  stream  function  is  caused  by  the  method  of  non¬ 
dins  ns  ionalizati  on  chosen.  To  avoid  this,  and  to  renove  K2  *rom  the 
equations,  let 


ri 


K.F' 

2  2k 


P2c 


(38) 


The  equations  for  the  stream  functions  can  now  be  solved  if  the  potential 
flow  solution  is  known.  This  solution  is  fixed  by  the  type  of  the  airfoil 
(in  this  case,  a  symmetrical  Joukowski  airfoil) ;  the  maximum  thickness 
(fixed  by  the  parameter  e  j  in  this  case  c  -  .092  for  a  maximum  thickness 
of  11.9%)  >  the  position  of  the  axis  of  rotation,  Xoi  the  geometric  angle 
of  attack,  o^j  and  the  induced  velocity,  which  is  proportional  to  u^. 

All  these  are  nondimensional  quantities*  the  lengths  are  nondimensional 
with  respect  to  the  chord  and  the  velocities  are  nondimensional  with 
respect  to  the  product  of  chord  and  angular  velocity.  Once  the  equations 
for  and  F2c  are  solved,  K2  is  found  from  Equation  (32),  which  may  now 
be  written,  for  n  ■  2,  as 

K2P2k  *  p2c  "  0  Mt  n  "  0  5  "  Cs  (39) 
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and  CB  is  th«  value  of  i  at  which 

r£  -  0  at  n  -  o 
The  velocities  in  the  boundary  layer  are 

u  -  yQa(x)  [T'0  +  (K2F'k  +  P^c)/pJc2  +  ...  ]  (40) 

v  -  G '  ♦  G'/C2  +  . . .  (41) 

Once  the  equations  for  F0,  Gq,  F,^  and  F2c  have  been  solved,  and  the  value 
of  K2  is  found,  the  chordwise  and  spanwise  velocities  are  known. 

FORWARD  FLIGHT  CASE 

For  this  case,  the  analysis  is  simplified  if  the  induced  velocity  is  taken 
as  constant  (u^  ■  0) ,  so  that 


v,  «  -  v 


For  a  lifting  helicopter,  va  is  a  positive  constant.  Both  the  aerodynamic 
angle  of  attack  and  the  stagnation  point  vary  with  time  and  position  along 
the  span.  The  stagnation  point  is  found  by  setting  u$  equal  to  xero. 

This  gives 

Oj  -  (1  -  L2)/(l  +  L2) 

L  -  -  I  (y  +  T2)  cos  +  v#  sin  a^]  /  [  (y  +  T2)  sin  -  v#  cos  c^) 

Sg  -  V  W 


In  body  coordinates,  the  value  of  x  at  the  stagnation  point  is  given  by 


/  B  do 
-1 


(42) 
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where  B  in  the  function  of  o  given  by  Equation  (6)  .  The  dependence  of  xx 
on  y  and  t  ie  complex,  but  may  be  expanded  in  a  aerie*  in  y ,  i.e., 

2 

*x  •  x0  ♦  xx/y  ♦  x2/y 

°i 

Xq  "  /  B  do 

-1 

X1  "  vax10  "  ‘  Va4B|  c0s  “b  Bin  \ 

X2  "  VaX20  +  VaT2X22  X22  "  ~  X10 

X20  “  <*/*»>{  8  CO*2  “b  Sin2  “b 

+  B*  [2  ain2  (3  cot2  -  1)  -  4  co*2  o^]  (43) 


The  superscript  *  denotes  "the  asymptotic  value  for  largr  values  of  y." 
For  example,  as  y  becomes  large,  x  becomes  C* ,  where  £*  ■  K  +  Xo*  Xo» 

XlO'  X20  1111(1  X22  *re  constants  and  are  independent  of  va,  <|i,  and  The 
equations  will  be  made  independent  of  va  by  a  careful  choice  of  the 
coefficients  of  the  double  subscripted  terms.  A  variable  with  a  single 
number  as  a  subscript  will  be  independent  of  C.  A  double  subscript  or  the 
single  subscript  0  (except  for  Gg)  indicates  independence  of  (,  4>,  sH,  and 
va.  This  removal  of  induced  velocity  is  possible  because  u>x  is  xero  and 
the  flow  at  the  edge  of  the  boundary  layer  has  been  simplified  to 


*0  co8  “b  +  *p  8in  “b 
♦c  "  * o  8in  “b  ’  *p  co8  “b 


(y 


+  t2) 


a  +  v  a 

a  a  c 


V.  ■  T,  + 
o  X 


V  -  6  -  2(X  cos  a.  +  Z  sin  a.  ) 

Ta  o  bo  d 
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Th*  function*  04,  tic,  and  coa  (a  -  ub)  arc  function*  of  x  only. 
However,  in  th*  transformed  coordinate  system  (C,  C»  n,  <p)  they  are 
functions  of  (  and  4>  (as  wall  as  U#  because  Xj  and  q  depend  on  c  and 
As  in  the  hover  case,  q  is  chosen  so  that  separation,  given  by 

n  -  0,*)  -  0, 

occurs  at  a  fixed  value  of  C,  say  £B*  An  appropriate  form  for  q  has  been 
found  to  be 


q  -  1  -  Kx/C  -  K2/; 


K,  -  V  K._ 

1  a  10 


(44) 


A,  ■  +  v  K__  +  K  T,  +  v  K__  T_ 

2  20r  a  20  21  1  a  22  2 


The  double  subscripted  X's  are  constant*. 

Thi*  choice  of  q  allows  functions  of  x  to  be  expanded  in  a  Taylor  series 
in  1A« 


9  -  l  v  c 
L  n 

n-0 


-n 


cos 


<°  -  °b>  -  l  c„  c 

n-0 


-n 


(45) , (46) 


s  -n 


a  L  n  ' 
n-0 


c  -n 


0  -  I  uC  C 
c  L  n 

n-0 


(47), (48) 


“j  -  t  Z  »*  c‘n  -  Ctu®  *  Z  («;.  Vn-l  *  VS-l' 

n-0  n-1 


(49) 


As  an  example,  the  coefficients  for  9  are  found  to  be 


vo-9* 
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V1  "  (X1  4  (»♦/>*)• 

v2  -  (x2  ♦  ocj  ♦  c*2> (>♦/»«)•  ♦  (xx  +  ot1)2(»2t/»«2)*/a 


Ths  vn  ara  still  functions  of  f  and  vt,  so  s  furthsr  expansion  is 

nacsssaryi 


v.  “ 


Vio  *  V«io  *  cr10l<>v>,>* 


v  ♦  v,-  ♦  T.v,,  ♦  v  T.V-- 

s  20  20r  1  21  s  2  22 


V20  " 


(X20  *  «J0  4  *20,(2f/2x>#  *  (X10  4  V10)2(J2t/3K2)2/2 


20r 


C*20r  {**/ix)* 
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OC21(3t/2K)* 


V22  “  <x22  +  K22M2f/2K)* 


Ths  othsr  functions  of  x  srs  hsndlsd  in  *  similar  nannsr.  Xn  ordsr  to 
express  ths  cosf ficisnts  of  ths  strssa  functions  in  ths  boundary  laysr 
aquations*  it  is  convenient  to  dsfins  ths  following 


s_!!o 

S  H 
u0 


H 


«  .  6 

!i!!° 
5  H 


v 

a  10 


*10  "ik  *  *10c 


(50) 

(51) 

(52) 

(53) 
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2 


.  6  «  .  6 
9Uj  Wj  9Vq 

3C  '  6  ac 
wo 


"  *2k  *20r  4  Va(*2 X  *20  +  *20c)  4  T1  *2k  *21 


+  V  T_  (a„  K  +  ) 

a  2  2k  22  22c 


154) 


At  this  point,  all  tha  expressions  in  tha  boundary  layer  aquations  hava 
baan  writtan  in  a  arias  fora  except  for  tha  straaa  functions.  They  era 
now  writtan  as 


t  -  »n(5,n)  ♦  r.<c,n,*)/c  «■  F,(c,n,*)/c  ♦  ... 


g  -  c0(C.n,*)  ♦  G^^n^/c  ♦ 


ri  -  Vio  ■  Wlk  4  F10C> 


(55) 

(56) 

(57) 


F,  "  I (F__  ♦  K_.  F  )  ♦  (F__  ♦  F_.  )  V  +  T,  (F„  ♦  K„,  F  ) 

2  2  Or  20r  2k  20c  20  2k  a  1  21c  21  2k 


+  V  T_  (F_  +  K  F„)]/w:  (58) 

a  2  22c  22  2k  0 


G_  ■  Gm  *  G-.T. 
0  00  01  1 


(59) 


G.  -  v  G,.  ♦  Y  T.G. .  ♦  T„G,  _ 
1  a  10  a  1  11  2  12 


(60) 


Substituting  all  tha  inf  ini  ta  ■  arias  into  tha  boundary  layer  equations  and 
neglecting  tha  teras  of  higher  order  in  1/C2  in  tha  F  series  and  1/c  in 
tha  G  series,  tha  aquations  to  be  solved  nay  be  found.  The  equations  for 
tha  first  teras  in  tha  straaa  functions  are 


a  ♦  1  3F'  3F 

F' '  •  -  -=-= —  F_F"  +  aoFi  -  m  +  C  (FI'  ~  -  F"  t~)  -  0 
0  2  00  00  0  0  35  035 


(61) 
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(62) 


D  (<w  - 


-  c0  -  “0> 


D  <G01)  -  0 


(63) 


m  +  1  3F  3G* 

where  D  (G0)  -  -  G’"  -  (— y-  FQ  ♦  5  ^  GJ  ♦  CFJ 

The  equations  for  the  second  terns  in  the  series  for  the  stream  functions 

are 


D  (F  )  - 
1 '  lk# 


-  o  m  (F' 2  -  —  F  F"  -  1) 

p0  lk  1  0  200  1 


(64) 


°>ic> 


-  pm.  .  (F '  2  -  ^  F  F"  -  1) 
^0  10c  0  200 


(65) 


where  (F^) 


m  +  1  3F 

-  F '  • '  -  (~S -  f  +  £  — -)  F" 

1  '  2  0  *  8E  1  1 


3F'  a  +  1 

+  (2Vo  +  «  aT5  Fi  “  2”  FSFi> 


3F! 

+  *(F0  3T 


3F 

F"  - ^) 

0  35  ’ 


d<5(g10> 


“o  +  1  i r  1 

(  p  +  £  — —  d  m  F  )  G" 

1  2  10  4  35  2  P0  10  0;  00 


3G« 

-  FjQ  5  5  (Fj^0  c0  +  Fq  c10  -  u10) 


-  K10  5  (Fo  c0 


(66) 


o+l  3F 

D  <G11>  "  (  2  F10  +  5  3? 


10  .  1 


=-  p„  o,n  FJ  G" 

2  r0  10  0  01 


3G* 

-  F»  £  — — 

0  4  35 


(67) 
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D  (g12>  '  -  P0(1  -  Gil> 


The  operator  D  (Gq)  is  given  above.  The  third  term  in  the  series  for  the 
chordwise  stream  function  is  given  by 


F 

D  (F  ) 
2k  2k; 


-  £m.„  (Fi2  -  ~  F"F  -  1) 
2k  0  2  0  0 


F 

D  (F  ) 
2 '  20r' 


-  5  (F'F'  +  =-  G  F"  -  v  J  -  p  c  (\)n  -  G'  ) 

0  00  2  00  0  0  r0  0  0  00 


.  m  +  1  3F 

D2(F20c}  “  ’  V  2  *10  F10  "  “0  F10  +  ??lo  95 


3F*  3F,  _ 

— 12.  _  rp»  — — ) 

3 £  ^10  3£  1 


F  m  (2F‘  F '  -  —  FM  F  -ip"  F  ) 
*  10  1  0  10  2  10  0  2  0  10' 


"  S(m20c  "  6  mi0) (F0  "  2  F0  F0  ~  1) 


D2(F21c> 


5  (F0  “  2  +  2  F0} 


pn  c_ (1  -  G*  ) 
*0  0  01 


-  £  (—■  F"  G  +  F'  G'  ) 
2  0  01  0  01 


°2 (F22c) 


12  wr..2 

6  ml0) (F0 


—  F  F"  -  1) 
2  0  0  ' 


where  D2(F2} 


m  +  1  3F 

_pm  _  (-2 - F  +  £  — — )  F" 

2  1  2  0  *  3£  *  2 


3F'  ra  -  1 

+  (mn  F'  +  £  ~)  F'  +  — - — - —  F"  F_ 
00  3£  2  2  02 


2 

+  £  (F!  r—  - 


3F2 

f5  5T> 
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The  variable  haa  been  eliminated  from  the  equation  by  applying  the 
principle  of  superposition.  The  independent  variables  in  the  equations 
are  £  and  n.  The  equations  have  the  boundary  conditions  given  by 


At  n  -  0 

F  -  F' 
nj  nj 

-  G  -  G'  -  0 
nj  nj 

at  n  ■  • 

0  - 

■ 

,  F'  -  0  for  n  >  0 

nj 

G'  -  v 

0  v0 

•  Si'1  •  Sj-Sj 

n  >  0 

These  equations  may  be  solved  sequentially,  once  values  have  been  fixed 
for  the  thickness  of  the  airfoil  (e),  the  type  of  airfoil  (symmetrical 
Joukowski) ,  the  geometric  angle  of  attack  (a^),  and  the  location  of  the 
axis  of  rotation  (XQ) .  The  separation  point  is  the  point  at  which 


F'0Ub.O)  -  0 


The  values  of  are  found  from  the  equations 


F^(V°>  Knj  ♦  rnlc«.-0)  -  0 


(74) 


The  equation  for  the  separation  line  is  given  by 


\  ■  *0  ♦  Vio*  +  'Vjo  +  V22  T2,/y2 


+  VU  -  W*  -  (K20r  +  \K20  +  T1K21  +  V2lt22,/S'21 


(75) 


The  velocities  in  the  boundary  layer  are  given  by 


u-  (yd  (x)  +  v  fl  (x)  +  T.fl  )  f'(C,C,n#+) 

A  AC  a  a 


(76) 


v  -  g*  (C,c,n.M 


(77) 


The  stream  functions  f  and  g  are  given  by  Equations  (61)  through  (72). 
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METHOD  OF  SOLUTION 


For  both  the  hover  case  and  the  forward  flight  case,  a  series  of  equations 
for  the  stream  functions  must  be  solved.  The  dependent  variables  in  these 
partial  differential  equations  are  the  transformed  chordwise  coordinate 
C  and  the  transformed  coordinate  normal  to  the  surface  of  the  airfoil  n* 

By  finite  difference  techniques,  numerical  solutions  can  be  found  from 
straightforward  calculations.  Special  techniques  are  required  to  start 
the  solution  at  the  stagnation  point,  and  some  numerical  experimentation 
's  required  to  find  the  optimum  spacing  in  the  £  direction.  The  calcu¬ 
lations  for  the  potential  flow  and  the  conversion  from  the  transformed 
coordinates  to  the  real  coordinates  involve  considerable  algebraic 
manipulation,  but  the  computer  programs,  especially  the^  one  for  forward 
flight,  are  simple  and  straightforward  in  logic.  Both  are  shown  in 
APPENDIX  II. 

The  potential  flow  solution  requires  the  solution  of  the  differential 
equation 


dx  /  do  =  B(o)  (78) 

where  x  =  0  at  o  =  -1.  This  equation  must  be  solved  to  find  the  value  of 
x  at  the  stagnation  point,  and  then  for  each  value  of  x,  the  corresponding 
value  of  o  must  be  found.  This  was  accomplished  by  the  RK1  Runge-Kutta 
scheme  in  the  IBM  System  360  Scientific  Subroutine  Package.  Since  B 
becomes  infinite  at  o  =  -1,  the  value  of  x  must  be  known  at  a  value  of  o 
greater  . than  -1.  For  (a  +  1)  «  1,  B(a)  can  be  simplified  and  integrated 
analytically.  The  relation  between  x  and  a  near  a  =  -1  is 


e  /2(1  +  a) 
1  +  e 


Since  the  integration  of  the  differential  equation  cannot  begain  at  o  =  -1, 
it  begins  at  (o  +  1)  =  10-^®. 

A  similar  situation  is  encountered  at  the  stagnation  point,  where  several 

functions  become  indeterminate.  The  function  m  , 

0 


m 


0 


is  indeterminate  in  that  both  the  numerator  and  denominator  are  zero  at 
£  =  0.  It  is  well  known  that  the  velocity  is  proportional  to  £  at  a 
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stagnation  point,  and  that  itiQ  should  equal  1.  To  avoid  exponent  overflew 
(the  computer,  an  IBM  360/75,  is  limited  to  exponents  of  about  75),  the 
solution  was  started  at  values  of  £  of  10--1  to  10"®.  For  £  =  1.2  ■*  10 
the  value  mQ  =  1.00004  was  found,  and  F"  =  1.23259.  This  is  close  enough 
to  the  stagnation  point  value  of  F"  of  1.2326  to  ensure  the  desired 
accuracy.  Varying  the  starting  value  of  £  by  a  factor  of  two  produced 
insignificant  changes  in  the  solution. 

A  similar  situation  was  encountered  for  =  0.  Although  negative  angles 
of  attack  cause  no  problem,  exponent  overflow  occurs  for  ab  much  less  than 
0.005°.  A  solution  at  0.005°  was  compared  to  a  solution  specifically 
designed  for  only  zero  angle  of  attack,  and  the  results  of  this  comparison 
indicate  that  0.005°  is  a  satisfactory  approximation  to  zero  degrees. 

The  results  for  the  hover  case  for  zero  angle  of  attack  are  found  from 
Reference  11,  and  for  forward  flight,  the  0.005°  approximation  was  used. 

Since  all  the  functions  of  x,  such  as  iia  and  cos  (a  -  a^) ,  are  actually 
known  as  analytic  functions  of  the  parametric  variation  c,  the 
determination  of  o  for  the  desired  value  of  x  allowed  the  functions  of  x, 
and  their  derivatives,  to  be  found.  This  allows  the  functions  of  £,  such 
as  and  Cq,  to  be  found,  and  all  the  coefficients  of  the  stream 
functions  in  the  equations  to  be  solved  are  determined.  Each  equation  is 
a  partial  differential  equation  in  £  and  n.  If  they  are  solved  in  the 
correct  order,  each  equation  will  contain  only  one  undetermined  stream 
function.  This  allows  the  equations  to  be  solved  sequentially,  and  not 
simultaneously.  The  starting  of  the  solution  in  the  £  direction  is 
simplified  by  the  form  into  which  the  £  derivatives  have  been  cast.  Each 
derivative  with  respect  to  £  is  multiplied  by  £ .  Thus ,  at  £  =  0  the 
equations  become  ordinary  differential  equations  in  n.  Once  a  solution 
is  found  at  the  stagnation  point  (£  =  0) ,  the  solution  proceeds  in  the  £ 
direction  by  the  method  of  A.  M.  0.  Smith. 13 

This  method  reduces  each  partial  differential  equation  to  an  ordinary 
differential  equation  in  n  at  each  successive  value  of  £,  by  expressing 
the  £  derivatives  in  terms  of  the  values  at  the  preceding  stations  by 
Lagrangian  finite  differences.  When  the  solution  is  known  at  the 

stagnation  point  (£  =  £i) ,  £  is  incremented  and  a  solution  at  £  =  £2  is 

sought.  The  £  derivatives  are  approximated  by  a  two-point  Lagrangian 
formula  using  values  at  £i  and  £2.  The  equations  are  solved  in  n  at 

£2.  At  the  next  point,  £3,  a  three-point  formula  is  used,  and  at  each 

succeeding  point  a  four-point  formula  is  employed.  The  spacing  of  the 
points  required  some  numerical  experimentation.  The  two-point  formula 
is  considerably  less  accurate  than  the  three  point,  so  A2(Ah  =  £^  -  Sjj-1^ 
is  small,  typically  .5  x  10-3.  A.  M.  O.  Smith13  has  given  several 
guidelines  for  the  selection  of  £  spacing.  If  the  value  of  £^  /  Ah  is 
greater  than  25,  the  equation  for  FQ  may  become  unstable.  This 
instability  is  manifested  in  an  inability  to  find  a  solution  for  the 
ordinary  differential  equation  in  n.  If  the  value  of  Aj^  is  too  large, 
the  £  derivatives  will  be  inaccurate.  The  accuracy  can  be  checked  in  two 
ways.  After  finding  a  solution  at  point  £jj+i»  a  central  difference 
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differentiation  using  ^-1'  *»h'  and  *»h+l  can  compared  to  the  backward 
formula  (using  £h,  £h_lf  th-2>  •••)  used  in  the  solution.  This  method  is 
not  as  complete  a  check  as  rerunning  the  entire  solution  with  smaller 
values  of  A^.  Since  the  accuracy  of  the  £  derivatives  depends  strongly 
on  Aj,,  this  will  reveal  any  inaccuracies  that  affect  the  results.  From 
30  to  60  stations  in  £  were  required  for  the  case  run,  with  values  of 
£jj  /  Ah  ranging  from  8  to  25  away  from  the  stagnation  point.  Near  the 
stagnation  point,  A^  was  varied  from  about  0.002  (at  large  angles  of 
attack)  to  0.005  (at  snv>ll  angles  of  attack).  Near  stagnation,  A^  ranged' 
from  0.01  to  0.02. 


The  equation  for  Fq  is  the  equation  for  a  two-dimensional  boundary  layer. 
At  the  point  of  separation  it  has  a  singularity,  and  the  solution  cannot 
be  carried  to  the  separation  point.  Smith  and  Clutter1-'  have  shown  that 
it  may  be  accurately  found  by  extrapolation.  To  approach  the  separation 
point  closely  enough  to  successfully  extrapolate  often  required  two  or 
three  attempts  to  find  a  suitable  spacing.  The  instability  in  the 
ordinary  differential  equation  near  separation  is  similar  to  that  caused 
by  large  values  of  £^  /  A^.  In  both  cases,  the  scheme  used  to  integrate 
the  equation  in  n  failed  to  converge.  The  conditions  under  which  the  n 
equation  diverged  depended  partly  on  the  integration  scheme  used. 


For  the  hover  case,  a  Runge-Kutta  scheme,  attributed  to  Kutta1 4 ,  was  used 
to  solve  the  ordinary  differential  equation  in  n-  One  of  the  boundary 
conditions  on  F^  (cr  G^)  is  given  at  n  *  *“.  This  requires  that  guesses 
be  made  of  a  maximum  value  of  n  large  enough  to  cause  little  error,  and  of 
the  value  of  F£  at  the  wall  that  will  match  the  boundary  condition  on  F^ 
at  the  maximum  value  of  n.  Little  difficulty  was  experienced  with  the 
linear  equations,  but  for  the  nonlinear  equation  for  F0,  and  error  of  lO-3"* 
in  Fq  often  caused  appreciable  error  in  Fq  at  the  maximum  value  of  n . 

This  problem  was  greatly  accentuated  if  the  maximum  value  of  n  was  so 
large  that  Fq  became  much  less  than  10-3.  Near  separation,  or  if  £^  /  A^ 
became  too  large,  the  equation  would  not  converge.  Since  the  computer 
retained  only  15  significant  digits,  this  could  limit  the  accuracy  of  Fq 
to  less  them  that  needed  to  match  the  boundary  condition  in  Fq  at  the 
maximum  n.  This  divergence  of  the  Runge-Kutta  integration  made  it 
difficult  to  approach  the  separation  point  closely,  and  required  constant 
adjustment  of  the  maximum  value  of  n. 


For  the  forward  flight  case,  Lew's  method  of  accelerated  successive 
replacement15  was  used  to  solve  the  equation  in  n.  This  method  has  some 
of  the  features  of  quasi-linearization.  For  each  equation,  an  estimate 
of  F^  (or  G„)  at  discrete  values  cf  n(r>i,  n2  •••  nj  raax^  required*  The 
values  of  Fm  Fn'  and  F^' '  at  njj,  are  found  by  finite  differences  from  the 
current  value  of  F^  at  n£_i,  h£  and  The  error  in  the  equation  is 

used  to  find  a  new  value  of  F^,  and  the  old  value  is  immediately  replaced. 
This  procedure  continues  until  the  change  in  F,^  is  less  than  10"6  or  10"^. 
Both  the  accuracy  and  speed  of  this  method  depend  strongly  on  the  spacing 
between  the  values  of  n.  A  spacing  of  .1  gives  sufficient  accuracy  (3  to 
4  places) .  The  computer  time  required  is  greater  than  that  of  the 
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Runge-Kutta  scheme,  except  near  separation,  where  they  are  comparable.  On 
an  IBM  Model  360/75,  even  the  Runge-Kutta  scheme  required  5  to  8  minutes 
of  computer  time.  For  n  greater  than  4  or  5,  the  spacing  in  n  was 
gradually  increased,  but  the  decrease  in  computer  time  is  probably  not 
worth  the  effort  involved.  Using  Lew's  method,  the  maximum  value  of  n  and 
the  values  of  A^  are  less  critical,  and  separation  can  be  approached  more 
closely  and  easily  than  with  the  Runge-Kutta  scheme.  The  method  of  Lew 
proved  much  simpler  to  program,  but  comparison  with  the  results  of  the 
Runge-Kutta  scheme  were  necessary  to  establish  confidence  in  its  accuracy. 

Since  neither  the  Runge-Kutta  solution  or  the  solution  by  Lew's  method  is 
clearly  superior,  the  advantages  of  each  are  listed.  First,  for  Lew's 
method: 

1.  Separation  may  be  approached  more  easily. 

2.  Larger  values  of  n,  and  smaller  values  of  A^,  may  be  used. 

3.  The  computer  program  is  simpler. 

The  advantages  of  the  Runge-Kutta  scheme  are: 

1.  Less  computer  time  is  required. 

2.  Greater  accuracy  is  obtainable. 

Other  programmers  have  successfully  used  predictor-corrector  methods  and 
the  method  of  quasi-linearization,  in  conjunction  with  A.  M.  0.  Smith's 
method. 

About  one-half  the  storage  required  by  the  program  (100  to  200  thousand 
bytes)  is  occupied  by  a  matrix  with  four  subscripts,  ym#  j,  ^  that 
contains  all  the  stream  functions  and  their  derivatives.  The  subscript  j 
denotes  the  variable.  In  the  hover  case,  for  example,  j  =  1  denotes  Fq, 

2  denotes  Gq,  3  denotes  31,(1  30  00  ■  T^e  nuinber  of  primes  is  given  by 

m  -  1.  Thus,  m  =  1  denotes  Fq,  2  denotes  Fq,  and  3  denotes  Fq.  The  value 
of  n  is  n£,  and  the  value  of  £  is  where  £^  is  the  current  value  of 

£.  When  a  solution  at  £h  is  sought,  values  at  Sh-l»  ^h-2'  31,(1  ^h-3  are 
needed  to  find  the  derivatives  with  respect  to  £ .  Thus  ^2  2  6  3  denotes 
Gq  evaluated  at  ng  and  5^-2’  Much  computer  time  was  saved  by  evaluating 
the  £  derivatives  only  once  at  each  £  station  and  storing  the  result  in 
a  matrix  Ani,j,i.  When  the  value  of  £  is  incremented,  the  Y  and  A  matrices 
must  be  revised. 

Whatever  method  is  used  to  solve  the  equations  in  £  and  n,  the  solution 
will  be  limited  in  accuracy  by  the  truncation  of  the  asynptotic  series 
in  span.  Like  any  asymptotic  series,  the  convergence  of  the  series  cannot 
be  determined  mathematically.  It  does  appear  that  for  values  of  span 
greater  than  12  or  15  times  the  chord  of  the  blade  an  adequate  approxi¬ 
mation  is  provided  by  the  first  term  of  the  series,  Fq.  The  spanwise 

series  is  taken  to  terms  of  the  order  1  /  x? ,  which  has  a  coefficient  F2. 

In  the  hover  case,  F^  is  zero  and  Fj  is  smaller  than  Ffo.  These  terms  may 

approximate  the  solution  for  values  of  span  as  small  as  1  or  2.  In  the 
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forward  flight  case,  the  magnitude  of  FJ  and  Fl  depends  on  the  magnitude 
of  the  inflow  v  and  the  forward  flight  speed  sH.  Helicopters  may  have 
speeds  to  give  values  of  sH  of  3  to  5,  and  the  inflow  may  be  in  the 
range  0.05  to  0.2.  The  accuracy  of  the  series  is  m  doubt  for  values  of 
span  less  than  5  to  10  and  near  the  region  of  reverse  flow  where  sH  sin  \p 
+  y  <  1. 

The  spanwise  series  has  been  taken  to  terms  of  order  1  /  £.  Over  most 
of  the  airfoil,  the  spanwise  velocity  is  of  the  order  of  1  /  £  times  the 
chordwise  velocity.  The  primary  interest  in  this  investigation  lies  in 
the  chordwise,  not  the  spanwise,  flow.  Determination  of  the  spanwise 
flow  is  primarily  for  evaluating  its  effect  on  the  chordwise  flow.  Since 
terms  of  order  1  /  £2  in  the  spanwise  flow  affect  the  chordwise  flow  only 
to  order  1  /  ^,  the  truncation  of  the  spanwise  series  at  1  /  C  is 
consistent  with  truncation  of  the  chordwise  series  at  1  / 
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RESULTS 


HOVER  CASE 


The  computer  program  in  APPENDIX  II  was  run  for  four  renditions,  and  a 
fifth  condition,  for  zero  angle  of  attack,  was  taken  from  a  special 
computer  program.11  All  conditions  were  for  a  symmetrical  Joukowski 
airfoil  with  a  thickness  of  11.9%  and  for  the  axis  of  rotation  at  the 
quarter  chord  (Xq  =*  0.25)  .  For  each  condition,  the  geometric  angle  of 
attack  ajj  and  the  downflow  constant  must  be  chosen.  These  have  not 
been  selected  arbitrarily,  but  have  been  chosen  to  be  representative  of 
conditions  found  in  two  specific  helicopters.  Values  of  thrust  of  6000 
lbf,  8000  lbf,  and  10,000  lbf  were  given  for  a  helicopter  with  a  24-foot 
radius  rotor.  For  a  40-foot  radius  rotor,  values  of  geometric  angle  of 
attack  of  zero  and  6  degrees  were  given.  The  relationship  of  the  inflow 
constant,  geometric  angle  of  attack,  and  thrust  is  described  in  APPENDIX 
I. 

It  has  been  found  that  the  solution  depends  strongly  on  the  aerodynamic 
angle  of  attack,  which  was  found  to  be 


“a  "  “b  "  “i 

For  this  reason,  the  conditions  are  identified  by  the  aerodynamic  angle 
of  attack,  and  the  corresponding  values  of  ab  and  are  understood  to  be 
those  in  Table  I.  Table  I  also  shews  the  position  of  the  stagnation  point 
Xj,  the  value  of  £  at  separation  5g,  and  the  constant  in  the  expression 
for  q ,  i . e . ,  Kj . 
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The  percent  of  chord  called  "near  separation"  is  used  only  in  constructing 
«ome  of  the  figures.  Its  position  depends  mainly  on  how  close  to 
separation  the  solution  was  taken.  The  third  digit  in  the  values  for  £g 
and  K2  is  probably  not  accurate.  No  attempt  was  made  to  calculate  the 
derivatives  of  the  stream  functions  to  more  them  three  significant  figures 
in  order  to  conserve  computer  time.  The  instability  of  the  Runge-Kutta 
solution  near  the  separation  point  makes  these  values  at  separation  less 
reliable  than  those  obtained  by  Lew's  method. 

In  examining  the  results  for  the  hover  case,  it  should  be  remembered 
that  the  £  dimension  is  not  a  physical  dimension.  The  x  dimension  is  the 
distance  along  the  surface  of  the  airfoil,  measured  from  the  leading  edge. 
The  £*  dimension  is  the  distance  along  the  surface  of  the  airfoil, 
measured  from  the  stagnation  point.  For  a  given  angle  of  attack,  x  and  £* 
differ  only  by  a  constant.  However,  for  one  value  of  £  the  distance  along 
the  surface  of  the  airfoil  will  vary  with  span.  Figure  4  shows  that,  for 
aa  -  3.12°,  a  value  of  £  of  0.15  corresponds  to  values  of  x  ranging  from 
0.2266  at  y  *  1  to  0.1426  at  y  ■  5.  In  every  case,  as  y  becomes  very 
large,  the  value  of  £  approaches  £*. 


Figure  4.  The  £  Coordinate. 


Some  of  the  results  are  more  readily  seen  by  examining  the  stream 
functions,  and  other  results  are  made  more  apparent  by  considering  the 
velocities.  Both  approaches  will  be  used.  A  detailed  examination  of  the 
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stream  functions,  similar  in  approach  to  that  of  Young  and  Williams,11 
will  evaluate  the  various  effects  that  occur  in  the  boundary  layer  for 
angles  of  attack  greater  than  zero.  Then,  for  conditions  applicable  to 
the  two  helicopers  described  in  APPENDIX  I,  the  results  will  be  discussed 
in  terms  of  such  physically  recognizable  variables  as  velocity  profiles, 
skew  angles,  and  boundary  layer  thicknesses. 

The  effect  of  the  angle  of  attack  on  the  chordwise  flow  can  be  seen  in 
Figures  5  and  6.  The  function  Fg  is  just  the  result  found  on  a  two- 
dimensional  airfoil.  The  function  F,  reflects  the  rotational  effects  in 
the  chordwise  flow.  These  rotational  effects  cause  a  spanwise  flow,  which 
in  turn  gives  rise  to  the  function  F2  in  the  chordwise  flow.  The  increase 
in  Fjj  as  the  angle  of  attack  decreases  is  reflected  in  the  values  of  K2 
in  Table  I.  At  large  angles  of  attack,  the  effect  of  rotation  on  the 
chordwise  flow  is  much  less  than  at  small  angles  of  attack.  Experimental 
and  analytical  results  with  an  NACA  0012  airfoil  led  Dwyer  and  McCroskey6 
to  the  same  conclusion.  The  reason  for  this  dependence  on  angle  of  attack 
can  be  seen  by  examining  the  spanwise  flow.  Positive  values  of  spanwise 
velocity  indicate  flow  away  from  the  axis  of  rotation.  For  large  values 
of  n,  is  influenced  primarily  by  the  spanwise  velocity  in  the  potential 
flow  Vg.  Figure  7  shows  that  vg  is  directed  toward  the  axis  of  rotation, 
and,  over  most  of  the  airfoil,  its  magnitude  increases  along  the  chord. 

At  smaller  values  of  n,  the  spanwise  velocity  is  influenced  by  rotational 
effects  which  tend  to  cause  flow  away  from  the  axis  of  rotation.  This 
flow  increases  along  the  chord  and  is  greatest  near  separation.  As  the 
blade  slows  the  fluid  flow  through  shear  stress  in  the  boundary  layer,  the 
fluid  experiences  Coriolis  and  centrifugal  accelerations.  These 
accelerations  must  act  on  the  flow  for  some  length  of  time,  or 
equivalently,  for  some  distance  along  the  chord,  before  the  velocity  is 
affected.  A  convenient  measure  of  the  rotational  effects  is  Gq,  shown  in 
Figure  8.  This  shows  a  steady  buildup  of  the  cumulative  effect  of 
rotational  accelerations  along  the  chord,  even  though  Vg,  which  opposes 
this  increase  in  Gq,  also  increases  in  magnitude  along  the  chord  over 
most  of  the  airfoil. 

The  spanwise  flow  affects  the  chordwise  f l°w  through  the  Coriolis 
acceleration  of  the  fluid.  This  acceleration  must  act  on  the  chordwise 
flow  for  some  distance,  or  more  precisely,  for  some  time,  before  it 
affects  the  velocity.  Figure  8  shows  that  the  rate  of  increase  of  Gq  at 
the  wall  increases  with  angle  of  attack,  but  the  magnitude  of  Gq  at  the 
wall  at  separation  depends  more  on  the  length  of  the  boundary  layer.  The 
spanwise  flow  also  experiences  a  Coriolis  acceleration.  When  the  spanwise 
flow  is  outward,  this  will  delay  separation.  The  spanwise  inviscid  flow 
is  usually  more  important  than  the  Coriolis  acceleration.  The  terms  in 
the  chordwise  boundary  layer  equation  that  involve  the  spanwise  potential 
flow  are  written  as  -2vg  cos  (a  -  ab)  +  Vg  Qa(x).  Figure  7  shows  that  the 
magnitude  of  vg  depends  upon  the  distance  along  the  surface  of  the  airfoil, 
and  over  the  rear  portion  of  the  airfoil,  vg  increases  along  the  chord. 
Thus,  the  greater  the  length  of  the  boundary  layer,  the  greater  the 
magnitude  of  vg,  resulting  in  a  larger  effect  due  to  the  Coriolis  force 
terms . 
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The  length  of  the  boundary  layer,  or  the  time  the  fluid  spends  in  the 
boundary  layer,  not  only  allows  the  spanwise  flow  to  grow  but  increases 
the  chordwise  velocity  caused  by  accelerations  in  the  spanwise  flow. 

Since  only  one  body  shape  has  been  considered,  a  real  distinction  between 
time  and  length  of  the  boundary  layer  has  not  been  found.  However,  this 
point  of  view  seems  to  provide  more  understanding  than  an  emphasis  on 
chordwise  pressure  gradient. 

A  more  familiar  view  of  the  boundary  layer  is  provided  by  examination  of 
velocity  profiles  calculated  for  specific  applications.  Figures  9  through 
14  show  the  chordwise  velocity  profiles  for  two  helicopters.  One  has 
a  24-foot  radius  rotor;  the  other  has  a  40-foot  radius  rotor;  both  are 
described  in  APPENDIX  I.  Figures  11  through  14  show  that  little  spanwise 
variation  occurs  for  values  of  span  greater  than  30%.  The  spanwise 
variation  is  not  a  function  of  the  length  of  the  blade,  but  the  percent 
span  can  easily  be  converted  back  to  the  number  of  chord  lengths  from  the 
axis  of  rotation.  For  the  24-foot  rotor,  30%  span  is  about  4  chord 
lengths  from  the  axis  of  rotation  (actually,  y  =  4.113).  For  the  40-foot 
rotor,  30%  span  is  6  chord  lengths.  Since  such  quantities  as  percent  span, 
thrust  in  pounds  force,  percent  chord,  and  forward  flight  speed  in  knots 
are  usual  and  easily  recognizable  variables,  they  will  be  used  in 
presenting  the  velocity  profiles,  boundary  layer  thicknesses,  and  skew 
angles.  The  notation  "Near  Separation"  (or  "NS")  denotes  the  values  of 
XNg  in  Table  I.  Figures  10,  11,  and  14  shew  that  chordwise  velocity 
profiles  near  separation  have  a  shape  like  Falkner-Skan  profiles  near 
separation.  Figure  13  showr  that  the  profile  is  fuller  at  smaller  values 
of  chord.  A  small  spanwise  variation  is  seen  at  24.4%  chord,  whereas  none 
can  be  seen  (in  fact,  none  was  seen  on  the  original,  computer-drawn  graph) 
at  10%  chord.  This  is  related  to  the  increase  in  rotational  effects  along 
the  chord. 

The  spanwise  velocity  profit  J,  shown  in  Figures  15  through  20,  show  the 
characteristic  S  shape.  The  positive  values  of  velocity  (flow  away  from 
the  axis  of  rotation)  are  caused  by  centrifugal  forces  in  the  boundary 
layer.  The  Coriolis  force  acting  on  the  chordwise  flow  causes  negative 
spanwise  flow.  The  sum  of  the  two  effects  is  small  and  positive  near  the 
wall.  In  comparing  spanwise  and  chordwise  profiles,  the  magnitude  of  Ug 
must  be  considered.  The  factor  \la  in  Ug  is  the  velocity  at  the  edge  of 
the  boundary  layer  on  the  airfoil  in  a  two-dimensional  flow  where  the 
impinging  stream  has  unit  velocity.  Away  from  the  stagnation  point,  £ia  is 
of  the  order  of  unity.  The  factor  QY  thus  determines  the  order  of 
magnitude  of  the  chordwise  potential  flow.  For  comparisc  i,  the 
nrndimensionalizing  factor  for  the  spanwise  velocity  is  ftR,  the  value  of 
ftY  at  the  blade  tip.  This  arrangement  is  dictated  by  the  physical 
situation:  the  chordwise  velocity  is  nearly  proportional  to  spam  and  the 
spanwise  velocity  is  nearly  independent  of  it.  In  both  spanwise  and 
chordwise  velocity  profiles,  there  i6  dependence  on  span  through  the 
vauriable  n.  A  chordwise  variation  is  expressed  implicitly  in  n»  and  in 
addition,  both  Vg  and  v  near  the  wall  increase  along  the  chord.  This  is 
seen  in  Figures  18  and  19. 
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Figure  9.  The  Chordwise  Velocity  Profile  for  the  24-Foot  Rotor  (at  10% 
Chord  and  60%  Span)  in  Hover. 


Figure  10.  The  Chordwise  Velocity  Profile  for  the  24-Foot  Rotor  (Near 
Separation  and  60%  Span)  in  Hover. 
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Figure  11.  The  Chordwise  Velocity  Profile  for  the  24-Foot  Rotor  (Near 
Separation  and  With  8000  lbf  Thrust)  in  Hover. 


Figure  12.  The  Chordwise  Velocity  Profile  for  the  40-Foot  Rotor  (at  Zero 
Degrees  Blade  Angle  of  Attack)  in  Hover. 
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Figure  13.  The  Chordwise  Velocity  Profile  for  the  40-Foot  Rotor  (at 
6  Degrees  Blade  Angle  of  Attack)  in  Hover. 


Figure  14.  The  Chordwise  Velocity  Profile  for  the  40-Foot  Rotor  (at 
6  Degrees  Blade  Angle  of  Attack  and  24.4%  Chord)  in  Hover. 
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Figure  15.  The  Spanwise  Velocity  Profile  for  the  24-Foot  Rotor  (at  10% 
Chord  and  60%  Span)  in  Hover. 


Figure  16.  The  Spanwise  Velocity  Profile  for  the  24-Foot  Rotor  (at  60% 
Span  and  Near  Separation)  in  Hover. 


Figure  17.  The  Spanwise  Velocity  Profile  for  the  24-Foot  Rotor  (Near 
Separation  and  With  8000  lbf  Thrust)  in  Hover. 
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Figure  18.  The  Spanwise  Velocity  Profile  for  the  40-Foot  Rotor  (at  Zero 
Degrees  Blade  Angle  of  Attack)  in  Hover. 


Figure  19.  The  Spanwise  Velocity  Profile  for  the  40-Foot  Rotor  (at 
6  Degrees  Blade  Angle  of  Attack)  in  Hover. 


Figure  20.  The  Spanwise  Velocity  Profile  for  the  40-Foot  Rotor  (at  24.4% 
Chord  and  6  Degrees  Blade  Angle  of  Attack)  in  Hover. 
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Figure  15  shows  that  an  increase  in  thrust  (a  higher  angle  of  attack) 
gives  larger  wall  shear  stress  but  smaller  potential  flow.  Plotting 
velocity  profiles  as  a  function  of  n  conceals  some  dependence  on  chord 
and  span.  The  boundary  layer  displacement  thicknesses  6X  (in  the  chordwise 
direction)  and  6y  (in  the  spanwise  direction)  are  nondimer sionali zed  by 
a  constant  i/ii/v.  The  equation  for  6  ,  for  example,  is 


6 

y 


n 

max 

/(x  -  x  )  /  u  [n  v  -  /  (v  /  v  )  dn) 
I  6  max  o 

0 


(78) 


The  term  in  brackets  is  very  nearly  independent  of  span,16  but,  through 
ug,  the  displacement  thickness  has  the  variation  shown  in  Figures  21 
through  28.  The  graphs  begin  at  the  leading  edge  of  the  airfoil  (x  =  0) 
in  order  to  avoid  the  stagnation  point.  A  true  stagnation  point  occurs 
only  in  the  chordwise  potential  flow.  At  the  point  where  u^  =  0, 
rotational  effects  cause  flow  in  the  boundary  layer.  This  was  discussed 
in  the  arguments  leading  to  Equation  (38)  .  Away  from  the  stagnation 
point,  the  displacement  thicknesses  increase  smoothly  with  chord.  In  some 
cases  an  upturn  near  separation  can  be  detected.  This  is  because  the 
boundary  layer  thickness  at  separation  becomes  very  large  (in  fact,  the 
flow  is  not  adequately  described  by  a  boundary  layer  there) .  The  spanwise 
displacement  thickness  is  larger  than  the  chordwise,  but  the  shape  of  the 
curves  is  similar.  The  spanwise  graphs  show  a  larger  increase  of  thickness 
along  the  chord.  In  both  cases  the  rate  of  increase  along  the  chord 
increases  with  thrust  (or  angle  of  attack) ,  but  because  of  the  greater 
length  of  the  boundary  layer,  the  final  thickness  is  greater  for  smaller 
angles  of  attack  (or  lower  thrust) .  The  S  shape  of  the  spanwise  velocity 
profiles  can  intuitively  be  seen  to  cause  a  greater  displacement  thickness 
than  a  chordwise  profile,  which  has  no  reverse  flow. 

The  chordwise  momentum  thicknesses  (Figures  29  and  30)  show  much  the  same 
effects  as  the  displacement  thicknesses.  The  spanwise  momentum  thickness 
will  decrease  along  the  span  and  even  become  negative.  Because  of  the  S 
shape  of  the  spanwise  profile,  the  physical  meaningfulness  of  the  momentum 
thickness  is  lost. 

To  allow  meaningful  comparison  between  the  two  different  rotors  and  to 
allow  the  implications  of  Equation  (25)  to  be  seen,  the  separation  line  in 
Figures  31  and  32  is  plotted  as  a  function  of  y  (y  is  spanwise  position/ 
chord) .  The  position  of  the  separation  line  xg  is  the  distance  along  the 
surface  measured  from  the  leading  edge  of  the  airfoil.  This  separation 
line  has  the  same  criterion  as  in  two-dimensional  flow,  but  separation 
occurs  in  a  different  way.  The  description  of  separation  that  best  fits 
the  present  case  was  given  by  Maskell1'  and  is  shewn  in  Figure  33.  The 
separation  line  is  an  asymptote  of  all  the  limiting  streamlines  (the 
streamlines  on  the  surface  of  the  blade) . 
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Figure  21.  The  Chordwise  Displacement  Thickness  for  the  24-Foot  Rotor 
(at  6000  lbf  Thrust)  in  Hover. 


Figure  22.  The  Chordwise  Displacement  Thickness  for  the  24-Foot  Rotor 
(at  10,000  lbf  Thrust)  in  Hover. 
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Figure  23.  The  Chordwise  Displacement  Thickness  for  the  40-Foot  Rotor 


(at  Zero  Degrees  Blade  Angle  of  Attack)  in  Hover. 
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Figure  24.  The  Chordwise  Displacement  Thickness  for  the  40-Foot  Rotor 
(at  6  Degrees  Blade  Angle  of  Attack)  in  Hover. 


Figure  27.  The  Spanwise  Displacenent  Thickness  for  the  40-Foot  Rotor 
(at  Zero  Degrees  Blade  Angle  of  Attack)  in  Hover. 
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Figure  29.  The  Chcrdwise  Momentum  Thickness  for  the  24-Foot  Rotor 
(at  60%  Span)  in  Hover. 


Figure  30.  The  Chordwise  Momentum  Thickness  for  the  40-Foot  Rotor 
(at  60%  Span)  in  Hover. 
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Because  the  streamline  that  lies  on  the  separation  line  cannot  carry  an 
infinite  amount  of  fluid  (it  is  the  asymptote  for  an  infinite  number  of 
limiting  streamlines)  ,  the  limiting  streamlines  must  leave  the  surface  of 
the  blade;  i.e . ,  separation  must  occur.  The  skew  angles  (Figures  34 
through  37)  show  how  the  streamline  turn  outward  to  approach  the 
separation  line.  At  smaller  angles  of  attack  the  turn  is  more  gradual, 
but  in  all  cases  an  extension  to  separation  „ould  show  the  same  type  of 
approach  to  the  separation  line.  The  spanwise  dependence  can  be  better 
understood  from  the  equation  for  skew  angle: 


tan  8  =  lim  —  -  — 2- 
_  u 
n+0 


V 


n=o 


(79) 


The  y  dependr-nce  in  u^  is  the  primary,  but  not  the  only,  source  of  y 
dependence  A  skew  angle  of  90°  indicates  outward  flow  parallel  to  the 
span.  If  the  skew  angle  is  zero,  there  is  no  spanwise  flow  at  the 
surface. 

The  rotational  effects  are  not  large  in  the  hover  case,  but  much  under¬ 
standing  of  their  effect  can  be  gained.  When  forward  flight  is  added  to 
the  problem,  the  complexity  of  the  flow  field  obscures  many  of  the  basic 
phenomena. 


FORWARD  FLIGHT  CASE 

The  results  for  the  forward  flight  case  are  summarized  in  Table  II.  The 
aerodynamic  angle  of  attack  varies  with  span  and  time,  so  it  may  not  be 
used  to  identify  the  conditions  as  in  the  hover  case.  If  a  graph  is 
drawn  with  application  to  a  specific  helicopter,  then  the  length  of  the 
rotor  in  feet  R  and  either  thrust  in  pounds  force  T  or  the  geometric 
angle  of  attack  in  degrees  will  be  given.  All  results  are  understood 
to  be  for  an  11.9%-thick  symmetrical  Joukowski  airfoil  with  the  axis  of 
rotation  at  the  quar ter- chord  point.  The  values  for  £s  and  Knj  jure  more 
accurate  than  those  in  the  hover  case.  This  is  due  to  the  superior 
stability  of  Lew's  method,  which  allows  a  closer  approach  to  separation. 

The  results  will  be  presented  in  parts.  First,  each  factor  that 
influences  the  separation  line  will  be  analyzed.  A  series  of  special 
cases  will  be  used  to  investigate  the  various  effects.  The  values  of 
inflow  and  forward  flight  speed  will  be  chosen  for  illustration  and  do 
not  necessarily  reflect  realistic  values.  The  second  method  of 
presentation  of  the  results  uses  values  of  inflow,  thrust,  and  forward 
flight  speed  for  the  two  helicopters  described  in  APPENDIX  I.  Plots  of 
velocity  profiles  and  the  separation  lines  are  presented  in  terms  of 
parameters  related  to  helicopters. 
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Figure  35.  The  Surface  Skew  Angle  for  the  24-Foot  Rotor  (at 
10,000  lbf  Thrust)  in  Hover. 
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Figure  36.  The  Surface  Skew  Angle  for  the  40-Foot  Rotor  (at 
Zero  Degrees  Blade  Angle  of  Attack)  in  Hover. 
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TABLE  II.  SUMMARY  OF  CALCULATED  RESULTS  FOR  THE  FORWARD  FLIGHT  CASE 
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Special  Case  of  Zero  Inflow  and  Forward  Flight  Speed 


The  solution  for  forward  flight  is  particularly  well  suited  to  the 
evaluation  of  the  effects  of  inflow  and  forward  flight  because  both  va 
and  sy  appear  explicitly  in  the  equations.  For  example,  if  both  sH  and 
v  are  set  equal  to  zero,  the  separation  line  becomes 

cl 


x 

s 


*0  + 


/  (1  - 


K20r  /  ^ 


(80) 


However,  this  is  not  a  physically  realistic  situation.  In  calculating 
the  potential  flow  for  the  rotor  blade  under  consideration,  circulation 
sufficient  to  satisfy  the  Kutta  condition  was  included.  Yet  by  setting 
va  equal  to  zero,  the  net  sum  of  the  inflow  of  all  tne  blades  in  the 
rotor  disk  was  made  equal  to  zero.  This  situation  is  interesting, 
however,  because  of  its  similarity  to  the  hover  case.  In  the  two  cases, 
the  equations  for  the  separation  line  and  Fg  have  the  same  form.  Also, 

F 20  m  the  hover  case  is  governed  by  the  same  equation  as  that  for  F20c 
in  the  forward  flight  case.  The  two  cases  are  not  identical,  however, 
because  the  spanwise  flow  due  to  is  different. 

In  the  forward  flight  case,  the  nonhomogeneous  terms  in  Equation  (62)  for 
Gfto  arise  from  both  the  pressure  gradient  terms  and  the  Coriolis  term. 

The  term  £Uq  comes  from  the  product  of  and  the  x  derivative  of  <J>a  (v5 
depends  on  4>a  and  X) .  The  term  -£F£cg  comes  from  both  the  Coriolis 
acceleration  2  (u  -  u$)  cos  (a  -  a^)  and  the  product  of  u$  and  the  x 
derivative  of  X.  In  the  hover  case  an  additional  term,  arising  from 
UgSvj  /  3x,  that  depends  on  the  inflow,  appears.  For  the  forward  flight 
case,  neither  inflow  nor  forward  flight  speed  appear  explicitly  in  the 
reduced  equations  of  motion.  The  nonhomogeneous  terms  in  Equation  (70) 
for  F2(jr  (°r  F20  hover  case)  depend  on  the  spanwise  flow.  The 

term  pg  cQ  (vQ  -  Gftg)  comes  from  the  Coriolis  acceleration  of  the  spanwise 
flow  due  to  rotation.  The  convective  term  v3u  /  3y  contributes  the  term 
5F6G6'  the  part  of  w  due  to  Ggg  gives  rise  to  5FgGg0  /  2  through 
w3u  /  3z.  The  term  £vq  comes  from  v^Sug  /  3y. 

For  both  va  and  sh  equal  to  zero,  the  aerodynamic  angle  of  attack  and  the 
geometric  angle  of  attack  are  identical  and  constant.  Although  the  form 
of  the  separation  line  in  this  situation  is  the  same  as  in  the  hover  case, 
the  values  of  K2  and  K2Qr  will  not  agree  for  the  same  geometric  angle  of 
attack  because  the  inflow  in  the  hover  case  will  influence  both  the 
aerodynamic  angle  of  attack  (making  it  differ  from  the  geometric)  and  the 
spanwise  flew  (through  the  part  of  u^Sv^  /  3x  that  arises  from  the 
inflow).  However,  if  the  values  of  K2  are  compared  on  the  basis  of 
aerodynamic  angle  of  attack,  it  appears  that  separation  is  influenced  more 
by  the  aerodynamic  angle  of  attack  them  by  the  dependence  of  the  inflow 
on  the  span. 
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Special  Case  of  Zero  Inflow 


The  present  solution  is  formally  valid  for  va  =  0,  even  if  sH  is  not  zero. 
This  situation  is  as  physically  unrealistic  as  the  previous  one  for  bl..\de 
angles  of  attack  that  give  rise  to  lift.  The  zero  blade  angle  of  attack- 
case  was  investigated  by  Young  and  Williams.11  The  present  investigation 
is  in  agreement  except  for  the  value  of  £g.  Improvements  in  the  computer 
program  that  allowed  separation  to  be  approached  more  closely,  and 
improvements  in  the  extrapolation  technique,  give  better  values  for  £s 
and  the  constants  for  the  separation  line.  The  separation  line  for  va  =  0 
is  given  by 
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Xq-^s/  (1“K20r/y  "K 


21  1 
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(81) 


In  the  present  situation,  the  same  effects  operate  to  give  the  time 
dependence  of  the  separation  line  as  in  Young  and  Williams11,  but 
may  be  other  than  zero. 

The  spanwise  flow  contains  an  additional  contribution,  Gq^,  due  to  the 
yaw  angle  of  the  blade.  This  is  the  time  dependent  part  of  the  spanwise 
flow,  and  it  causes  a  Coriolis  force  which  affects  the  chordwise  flow. 

The  nonhomogeneous  terms  in  the  equation  for  F21c  (Equation  (72))  come 
from  the  Coriolis  acceleration  of  the  spanwise  flow  due  to  yaw  (-PqCq 
+  Poco®6l)  >  from  the  time  dependent  part  of  v  in  v9u  /  9y  (-(IF^G,^) ; 
from  the  time  derivatives  of  the  chordwise  flow  found  in  the  terms  9u  /  9t 
and  9u{  /  9t  (-£F(|)  and  £)  j  from  the  time  dependent  part  of  the  spar.wise 
potential  flow  in  v^  9u$  /  3y  (£) ;  and  from  the  dependence  of  n  on  time 
in  9u  /  9t  (-CnFg  /  2) .  Figure  38  shows  that,  as  the  angle  of  attack 
becomes  larger  than  2°,  the  magnitude  of  the  oscillations  of  the 
separation  line  with  azimuthal  angle  decreases.  This  is  in  agreement 
with  a  two-dimensional,  time-dependent  solution  of  Dwyer  and  McCreskey6 
on  an  NACA  0012  airfoil  at  8°  angle  of  attack  which  showed  no  time 
dependence  of  the  separation  line.  The  combined  effects  of  rotation 
and  forward  flight,  without  inflow,  seem  tc  decrease  in  magnitude,  but 
remain  unchanged  in  character,  as  the  angle  of  attack  is  increased. 

The  maximum  displacement  of  the  separation  line  occurs  at  f  m  0.  This 
is  a  90°  phase  advance  from  the  maximum  of  the  velocity  at  the  edge  of 
the  boundary  layer,  which  occurs  at  iji  =  90°.  The  time  dependence  of 
the  chordwise  velocity  resides  partly  in  and  partly  in  f'.  Since 
separation  occurs  at  the  point  where  f"  is  zero,  only  the  time  dependence 
of  the  f'  part  appears  in  the  equation  for  the  separation  line.  At  other 
points  along  the  chord,  the  shear  stress  reflects  the  time  dependence  of 
both  ug  and  f'.  The  phase  advance  (the  angle  y  between  the  maximum  of  the 
shear  stress  at  the  wall  and  the  maximum  of  u^)  has  been  calculated  by 
Lighthill18  for  two-dimensional  oscillatory  flow.  Lighthill  based  y  on 
the  steady-state  displacement  thickness  and  shear  stress,  and  specifically 
excluded  the  region  near  separation. 
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Figure  39  shows  that  the  trend  of  Lighthill's  solution  and  the  phase 
advance  in  the  present  solution  are  in  general  agreement  for  no  inflow. 
A  quantitative  comparison  is  not  justified  because  of  the  difference  in 
the  physical  situation  and  the  method  of  solution  between  the  two  cases. 
In  the  present  solution,  three-dimensional  effects  cause  a  phase  shift 
in  the  chordwise  pressure  gradient,  and  the  asymptotic  series  is  formed 
quite  differently  from  that  of  Lighthill. 


Special  Case  of  Zero  Forward  Flight  Speed 


Another  special  case  may  be  isolated  at  this  point;  namely,  the  solution 
obtained  by  setting  sH  equal  to  zero  and  retaining  the  inflow.  This  is 
basically  a  solution  for  hover  but  will  differ  from  the  previously 
presented  hover  case  in  that  now  the  inflow  is  a  constant.  The  constancy 
of  the  inflow  causes  the  aerodynamic  angle  of  attack  to  vary  with  span. 
The  aerodynamic  angle  of  attack  is  given  in  this  case  by 

a  -  a  -  tan  1  v  /  y  (82) 

a  o  a 


Relative  to  the  chordwise  flow,  which  increases  with  span,  the  downflow 
decreases  as  the  span  increases.  This  relative  change  is  reflected  in 
the  potential  flow  both  indirectly  by  a  change  in  the  position  of  the 
stagnation  point  and  directly  by  a  change  in  the  importance  of  the 
potential  flow  function  dc  relative  to  Qa.  Since  the  inflow  was 
proportional  to  span  in  the  previously  considered  hover  case,  these 
effects  were  not  present. 


The  transform  of  the  x  coordinate  into  the  £  coordinate  causes  the  terms 
in  the  series  for  f1  of  higher  order  them  Fq  to  be  larger  over  most  of 
the  airfoil  for  the  hover  and  forward  flight  cases.  In  the  forward  flight 
case,  however,  the  function  Fj[0  will  be  large  even  if  the  problem  had  been 
solved  in  the  x,  y,  z  coordinate  system.  The  plot  of  FJq  in  Figure  40 
demonstrates  the  behavior  of  the  function.  The  large  negative  values 
behind  the  leading  edge  grow  rapidly  with  angle  of  attack;  for  an  afa  of 
4.465,  FJq  ■  -29.0  at  £  ■  .022.  At  the  large  values  of  FJ0»  the  dominant 
effect  is  the  change  in  the  pressure  gradient  due  to  the  change  in  the 
position  of  the  stagnation  point  along  the  span.  For  the  positive  values 


of  Fio,  the  change  in  the  pressure  gradient  due  to  the  change  in  the 


of  dc  relative  to  Q.  becomes  the  largest  influence  on  F-[q. 
the  constant  inflow  gives  rise  to  the  function  F- 
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comparison  to  Fjg,  a  plot  of  F^q  is  shown  in  Figure  41.  The  large 
magnitude  of  F~n  is  partly  due  to  the  nonhomogeneous  terms  in  the  equation 


for  F 


20 
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being  dependent  on  F1Q.  The  magnitudes  of  Fjg  and  seem  large 
in  comparison  to  F£.  The  proper  comparison,  however,  should  be  to 
vaF10  /  C  and  vj  F»0  /  u§^. 
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Figure  39.  The  Advance  Angle  (in  Degrees)  of  the  Shear  Stress  on  the 
Surface. 


Figure  40.  The  Function  F"  on  the  Surface  of  the  Blade. 
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Sine*  vt  is  small  (typically  .1),  and  since  FJ0  and  F£q  are  of  opposite 
sign  where  they  are  largest,  the  infinite  series  for  span  may  be  accurate 
over  the  entire  chord  for  values  of  span  /  chord  as  small  as  3  or  4  for 
the  present  situation  (sH  -  0) .  The  functions  F^  and  F2O’  tlurcru9h  the 
constants  and  affect  the  separation  line  through 


-  *0 +  vit/y  *  v2</y2  * / 11  -  v.iti</y  -  iwy2  -  v«K2c/y2> 


(83) 


As  shown  in  Table  II,  Kjq  K20  are  of  opposite  sign.  Separation  is 
delayed  by  K^q  and  advanced  by  *20  •  *°  that  their  effect  is  to  tend  to 
cancel  each  other.  Both  increase  in  magnitude  as  the  angle  of  attack 
increases  in  such  a  way  that  the  net  effect  on  separation  is  delay  (except 
for  values  of  span  so  small  as  to  cast  doubt  on  the  accuracy  of  the 
series) .  Figure  42  shows  the  separation  line  as  a  function  of  span  for 
sH  -  0.  The  situation  of  large  inflow  at  near  zero  angle  of  attack  is 
not  realistic,  but  it  is  included  for  completeness . 

The  effect  of  the  constant  inflow  is  to  delay  separation,  and  this  delay 
is  increased  as  span  decreases.  At  least  part  of  this  effect  is  due  to 
the  increase  in  aerodynamic  angle  of  attack  as  span  decreases.  The 
importance  of  the  aerodynamic  angle  of  attack  may  be  assessed  from  Figure 
43.  When  the  forward  flight  speed  is  zero,  the  results  for  the  two 
different  cases  agree  very  well  when  compared  on  the  basis  of  aerodynamic 
angle  of  attack.  The  inflow  affects  the  separation  line  almost  entirely 
through  a  change  in  the  aerodynamic  angle  of  attack  in  the  hover  case 
(with  inflow  proportional  to  span)  and  in  the  forward  flight  case  (with 
S(]  B  0) ,  which  has  constant  downflow.  , 


General  Case  With  Inflow  and  Forward  Plight 


Combining  the  effects  of  inflow  and  forward  flight  introduces  one  function 
that  has  not  yet  been  considered,  F •  It  has  the  value  ~WqFiq  and  arises 
from  the  combined  action  of  the  constant  inflow  and  the  time  dependence 
due  to  forward  flight.  It  is  not  present  unless  both  are  acting 
simultaneously.  Its  effect  on  the  separation  line  is  shown  in  Figure  44. 
As  the  inflow  increases,  the  mean  (with  respect  to  time)  position  cf  the 
separation  line  is  moved  rearward  on  the  airfoil.  Also,  the  oscillations 
about  this  mean  separation  line  increase  in  magnitude,  and  tl*  maxima  and 
minima  occur  at  smaller  values  of  azimuthal  angle.  For  no  inflow,  the 
time  dependence  of  the  flow  is  dominated  by  time  derivatives  of  the 
chordwise  velocity.6'11  This  effect  is  represented  by  the  function  *21c' 
which  has  the  coefficient  cos  ip.  As  the  inflow  increases,  the  function 
F22c'  with  the  coefficient  sin  ip,  becomes  important. 
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figure  4^. 


The  Separation  Line  as  a  Function  of  Span  and  Inflow 
for  No  Forward  Flight. 
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Figure  43.  Separation  Points  With  and  Without  Inflow  for  No  Forward 
Flight. 
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Figure  44.  The  Separation  Line  as  a  Function  of  Azimuthal  Angle  and 
Inflow. 
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This  function  increases  the  magnitude  of  the  oscillations  and  causes 
the  phase  shift  in  the  separation  line.  The  forward  flight  sperd  and 
the  inflow  cause  a  change  with  time  of  the  aerodynamic  angle  of  attack 
which  is  given  by 

-  <*b  -  tan  1  (vfl  /  (y  +  T2))  (84) 

The  aerodynamic  angle  of  attack  is  a  minimum  at  ■  270°.  This  is  a 
result  of  the  simplifying  assumptions  imposed  to  obtain  a  tractable 
solution.  For  an  actual  helicopter,  the  blade  angle  of  attack  is  maximum 
at  \l>  m  270°  duo  to  cyclic  pitch.  As  the  inflow  increases,  the  maximum  of 
the  separation  line  moves  away  from  360°  toward  270°.  For  zero  forward 
flight  speed,  the  inflow  did  not  significantly  affect  the  relationship 
between  separation  and  aerodynamic  angle  of  attack.  From  Figure  45,  it 
can  be  seen  that  this  is  not  true  in  forward  flight.  Going  from  ij;  ■  0 
to  ip  ■  360°  is  equivalent  to  traversing  the  closed  curves  in  a  clockwise 
direction.  For  no  inflow,  the  aerodynamic  angle  of  attack  is  constant, 
and  the  separation  point  is  represented  by  a  straight  vertical  line.  This 
time-dependent  behavior  of  the  separation  line  could  not  be  found  except 
by  considering  rotation,  inflow,  and  forward  flight  simultaneously.  It 
must  be  ascribed  to  an  interaction  of  all  three. 


General  Case  of  Two  Specific  Helicopters 

The  values  of  inflow,  thrust,  and  angle  of  attack  have  been  calculated 
in  APPENDIX  I  for  two  specific  helicopters.  There  are,  of  course,  other 
effects  that  are  not  included  in  the  present  analysis.  Only  special  forms 
of  time  dependence,  those  due  to  forward  flight,  can  be  handled.  The 
aerodynamic  angle  of  attack  has  been  calculated  without  taking  into 
account  blade  twist  or  flapping.  Due  to  these  factors  and  others 
discussed  in  the  theory,  the  results  may  not  be  applied  directly  to  a 
helicopter  rotor.  For  example,  results  are  shown  at  various  values  of 
span.  At  60%  span,  the  assumption  of  no  end  effects  is  defensible.  At 
95%  span,  the  results  still  properly  represent  the  effects  which  the 
present  work  is  investigating,  but  the  end  effects,  which  this  theory 
cannot  calculate,  will  have  to  be  accounted  for  in  some  other  way. 

The  chordwise  velocity  profiles  are  shewn  in  Figures  46  through  55.  The 
general  shape  is  that  of  Falkner-Skan  profiles.  Figures  50  and  51  show 
that  the  effect  of  forward  flight  speed  is  small  at  i|>  -  90°.  Graphs  of 
the  separation  line  will  show  the  effects  of  forward  flight  speed  more 
clearly.  The  dependence  of  the  chordwise  velocity  profiles  on  azimuthal 
angle  shown  in  Figures  52  and  53  will  grow  larger  if  the  span  is  decreased 
or  the  separation  point  is  approached.  At  45°  and  135°,  similar  values 
are  found  for  the  aerodynamic  angle  of  attack.  The  aerodynamic  angle  of 
attack  at  225°  is  about  the  same  as  at  315°. 
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Figure  45. 


The  Separation  Line  as  a  Function  of  Aerodynamic  Angle 
of  Attack  in  Forward  Flight  With  Lift. 


Figure  46.  The  Chordwise  Velocity  Profile  for  the  24-Foot  Rotor  (at 
8000  lbf  and  10%  Chord). 


Figure  47.  The  Chordwise  Velocity  Profile  lor  the  40-Foot  Rotor  (at 
Zero  Degrees  Blade  Angle  of  Attack  and  10%  Chord) . 
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Figure  48.  Hie  chordwise  Velocity  Profile  for  the  24-Foot  Rotor  (at 
8000  lbf  and  12%  Chord) . 
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Figure  43.  The  Chordwise  Velocity  Profile  for  the  4t  -Foot  Rotor  (at 
Zero  Degrees  Blade  Angle  of  Attack  and  30%  Chord) . 
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Figure  50.  The  Chordwise  Velocity  Profile  for  the  24-Foot  Rotor  (at 
8000  lbf ,  60%  Span,  and  10%  Chord). 
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Figure  51.  The  Chordwiae  Velocity  Profile  for  the  40-Foot  Rotor  (at  Zero 
Degrees  Blade  Angle  of  Attack,  60%  Span,  and  30%  Chord). 
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Figure  52.  The  Chordwise  Velocity  Profile  for  the  24-Foot  Rotor  (at 
0000  lbf  and  10%  Chord)  in  Forward  Flight. 
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Figure  53.  The  Chordwiae  Velocity  Profile  for  the  40-^out  Rotor  (at  Zero 
Degreee  Blade  Angle  of  Attack  and  30%  Chord)  in  Forward  Plight. 


74 


:dwise  Velocity 
-d  and  60%  Span) 


Profile  for  the  24-F 
in  Forward  Flight. 


J _ I _ l 

2  3  4 

V 


rdwise 

“d  and 


F 


Velocity  Profile  for  the  40-: 
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The  pattern  of  the  aerodynamic  angle  of  attack  with  azimuthal  angle 
is  reversed  from  normal  helicopter  operation  (since  flapping  is  not 
included) ,  but  the  implication  that  time  derivatives  and  spanwise  flow 
are  not  dominant  over  angle  of  attack  will  apply.  Figures  54  and  55 
indicate  that  fuller  profiles  occur  at  smaller  angles  of  attack  for  a 
given  spanwise  and  chordwise  position. 

From  Figures  56  through  64,  the  characteristics  of  the  spanwise  velocity 
profiles  can  be  seen.  Figures  56  through  59  shew  that  the  spanwise 
variation  is  greater  at  270*  than  at  90*.  Figure  57  does  not  have  the 
characteristic  S  shape  because  the  centrifugal  forces  have  not  yet  caused 
positive  values  near  the  wall.  The  points  4*  -  90*  and  -  270*  are  not 
typical  points;  the  spanwise  flow  due  to  yaw  is  zero  there.  Figures  60 
and  61  show  clearly  that  the  flow  due  to  forward  flight  dominates  the  flow 
due  to  rotational  effects.  At  45*  and  315*  there  is  outward  spanwise 
flow,  and  at  135*  and  225*  there  is  inward  spanwise  flow.  This  flow  is 
so  much  larger  than  the  induced  flow  due  to  rotation  that  a  larger  scale 
is  required.  Near  the  wall,  however,  an  asyvawtry  between  the  upper  and 
lower  curves  can  be  detected.  This  is  due  to  rotational  effects?  or  more 
precisely,  it  is  not  due  to  the  yaw  angle.  There  is  some  dependence  on 
forward  flight  at  90*  or  270*  due  to  the  time  derivative  of  spanwise 
velocity  and  due  to  the  combination  of  inflow  and  forward  flight  (from 
Equations  (67)  and  (68)).  Figures  62  and  63  show  that  at  90*,  these 
effects  are  small. 

The  dependence  of  the  chordwise  displacement  thickness  on  azimuthal  angle, 
shown  in  Figure  65,  is  much  larger  than  that  seen  in  the  velocity  profiles 
(Figureo  52  and  53).  In  the  velocity  profiles,  this  time  dependence 
(or  dependence  on  azimuthal  angle)  is  contained  in  the  variable  n,  and 
so  cannot  be  seen  on  the  graph.  In  Figure  65,  this  time  dependence  is 
displayed.  The  large  difference  between  the  225*,  315*  pair  and  the  45*, 
135*  pair  occurs  because  of  the  appearance  of  og  in  the  Falkner-Skan 
transform  from  z  to  n.  A  similar  effect  occurs  in  Figure  66?  the  forward 
flight  speed  also  appears  in  ug.  This  dependence  on  forward  flight  speed 
will  become  more  important  at  smaller  values  of  span. 

In  examining  the  graphs  of  the  separation  line,  the  shape  of  the  curves 
in  Figures  67  and  68  should  be  understood.  For  no  inflow  (a^  -  .005*), 
there  is  a  minimum  in  the  separation  line  at  180*  azimuthal  angle  and  a 
mazimus  at  360*  (or  0*) .  The  separation  line  with  inflow,  shown  in 
Figure  68,  has  a  minimum  near  90*  and  a  maximum  near  270*.  The  time 
derivatives  of  chordwise  flow  tend  to  cause  a  maximum  at  360*.  The 
inflow  makes  the  aerodynamic  angle  of  attack  smallest  at  270*  (since 
flapping  and  cyclic  pitch  are  not  considered)  and  tends  to  cause  a  maximum 
in  the  separation  line  at  270*.  The  resultant  maxlsnms  lies  between  270* 
and  360*  azimuthal  angle.  If  the  y  (spanwise)  dependence  is  examined  near 
a  minimum,  the  separation  line  will  move  forward  on  the  blade  as  y 
decreases.  Near  the  maximum,  the  opposite  is  true.  However,  the  mean  or 
time -averaged  separation  line  will  move  backward  as  y  decreases. 
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Figure  56.  The  Spanwise  Velocity  Profile  for  the  24-Foot  Rotor  (at 
8000  lbf  and  12%  Chord)  in  Forward  Flight. 


Figure  57.  The  Spamrise  Velocity  Profile  for  the  40-Foot  Rotor  (at 


Zero  Degrees  Blade  }  ogle  of  Attack  and  10%  Chord)  in 
Forward  Flight. 


Figure  58.  <*he  Spenwiae  Velocity  Profile  for  the  24-Foot  Rotor  (at 
8000  lbf  and  10%  Chord)  in  Forward  Flight. 
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Figure  59.  The  Spanwise  Velocity  Profile  for  the  40-Foot  Rotor  (at 
Zero  Degrees  Blade  Angle  of  Attack  and  30%  Chord)  in 
Forward  Flight. 


Figure  60.  The  Spanwise  Velocity  Profile  for  the  24-Foot  Rotor  (at 
8000  lbf  and  10%  Chord)  in  Forward  Flight. 
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Figure  61.  The  Spanwise  Velocity  Profile  for  the  40-Foot  Rotor  (*t  Zero 
Degrees  Blade  Angle  of  Attack  and  30%  Chord)  in  Forward 
Flight. 


Figure  62.  The  Spanviae  Velocity  Profile  for  the  24-Foot  Rotor  (at 
8000  lbf,  60%  Span,  and  10%  Chord)  in  Forward  Flight. 
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rigure  63.  The  Spanvise  Velocity  Profile  for  the  40-root  Kotor  (at  8ero 
Dog r mi  Blade  Anglo  of  Attack,  60%  Span,  and  30%  Chord)  In 
Forward  Plight. 


Figure  64.  Tho  Spamriae  Velocity  Profile  for  the  40-Foot  Rotor  (at  10% 
Chord  and  60%  Span)  in  Forward  Flight. 
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Figure  65.  The  Chordwise  Displacement  Thickness  for  the  40-Foot  Rotor 
(at  Zero  Degrees  Blade  Angle  of  Attack  and  60%  Span)  in 
Forward  Flight. 
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Figure  66.  The  Chordwise  Displacement  Thickness  for  the  40-Foot  Rotor 
(at  Zero  Degrees  Blade  Angle  of  Attack)  in  Forward  Flight. 
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Pigure  68. 


The  Separation  Line  for  the  40-Foot  Rotor  at  Zero  Degrees 
Blade  Angle  of  Attack  and  100  Knots  Forward  Flight  Speed. 


The  Separation  Line  for  the  40-Foot  Rotor  at  4  Degrees  Blade 
Angle  of  Attack  and  100  Knots  Forward  Flight  Speed. 
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Figure  69  shows  this  effect  more  explicitly  when  there  is  no  inflow.  For 
no  inflow,  the  curve  has  symmetry  about  the  line  if)  *  180°,  so  the  mean 
curve  coincides  with  the  line  marked  i p  =  90°,  270°.  With  inflow,  the 
curves  are  no  longer  symmetric.  Figures  70  and  71  show  that  the  delay  in 
separation  at  270°  is  greater  than  the  advance  at  90°.  Figures  72  and  73 
emphasize  the  difference  the  inflow  makes.  For  no  inflow  (Figure  72)  . 
the  dependence  on  forward  flight  is  eliminated  at  =  90°.  With  inflow 
the  separation  line  actually  advances  with  increased  forward  flight  speed, 
as  shown  in  Figure  73.  This  is  misleading;  Figure  74  gives  a  better 
understanding  of  the  situation.  The  separation  line  will  be  advanced  or 
delayed  according  to  the  azimuthal  angle  chosen.  The  effect  of  forward 
flight  speed,  span,  and  azimuthal  angle  should  not  be  examined  without 
consideration  of  Equation  (75) . 

In  Figure  75,  the  thrust  dependence  appears  to  contradict  a  previous 
result:  the  increase  of  angle  of  attack  reduces  the  time  dependent 
effects.  However,  the  increase  of  inflow  tends  to  increase  time 
dependence,  so  there  is  no  contradiction.  The  increase  in  thrust  causes 
an  increase  in  both  angle  of  attack  and  inflow,  and  the  inflow  increase 
is  the  more  inport  ant.  A  better  view  of  the  mean  separation  line,  and 
its  relation  to  separation  an  an  airfoil  in  two-dimensional  flew,  cam  be 
found  in  Figures  76  and  77.  The  aerodynamic  angle  of  attack  variation 
decreases  with  span  because  only  the  change  due  to  the  time  dependence 
of  the  chordwise  coupon ent  of  forward  flight  is  considered.  When  the 
angle  of  attack  decreases,  the  separation  line  retreats  toward  the 
trailing  edge  with  very  nearly  a  linear  dependence  on  angle  of  attack. 

As  the  angle  of  attack  begins  to  increase,  the  response  of  the  separation 
line  lags.  The  separation  line  may  even  retreat  for  a  time.  As  the 
angle  of  attack  increases  further,  the  separation  line  moves  forward  more 
rapidly  than  it  moves  back.  It  moves  forward  past  the  two-dimensional 
separation  line  but  stops  its  advance  as  soon  as  the  angle  of  attack 
ceases  to  increase. 
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Figure  69.  The  Separation  Line  for  the  40- Foot  Rotor  at  Zero  Degrees 
Blade  Angle  of  Attack  in  Forward  Flight. 
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Figure  70.  The  Separation  Line  for  the  24-Foot  Rotor  at  100  Knots  and 
90°  Azimuthal  Angle. 
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Figure  71.  The  Separation  Line  for  the  24-Foot  Rotor  at  100  Knots  and 
270*  Azieuthal  Angle. 


Figure  72.  The  Separation  Line  for  the  40-Foot  Rotor  at  Zero  Degrees 
Blade  Angle  of  Attack  and  90*  Azismthal  Angle. 
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Figure  73.  The  Separation  Line  for  the  40-Foot  Rotor  at  4  Degrees 
Blade  Angle  of  Attack. 


Figure  74.  The  Separation  Lina  for  the  24-Foot  Rotor  at  8000  lbf  and 
8  Chord  Lengths  From  the  Axis  of  Rotation. 
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Figure  75.  The  Separation  Line  for  the  24-Foot  Rotor  at  100  Knots  and 
8  Chord  Lengths  From  the  Axis  of  Rotation. 
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Figure  76.  The  Separation  Line  for  the  24-Foot  Rotor  at  6  Chord  Length* 
From  the  Axis  of  Rotation. 
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Figure  77.  The  Separation  Line  for  the  40-Foot  Rotor  at  8  Chord  Lengths 
Frost  the  Axis  of  Rotation. 
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SUMMARY 


A  solution  has  been  obtained  for  the  laminar  boundary  layer  on  a  rotating 
blade  that  includes  the  effects  of  lift  and  forward  flight,  but  does  not 
include  tip  effects,  cyclic  pitch,  or  flapping.  The  results  are  primarily 
applicable  to  a  rotating  blade  that  is  part  of  a  system  of  rotors.  The 
entire  rotor  disk  induces  an  inflow  velocity  that  is  proportional  to  span 
in  the  part  of  the  analysis  called  the  hover  case.  In  the  forward  flight 
case,  the  induced  velocity  is  a  constant  va  and  the  speed  of  forward 
flight  is  bh.  Either  s^  or  va,  or  both,  may  be  eliminated  from 
consideration  since  thoy  appear  explicitly  in  the  equations  for  velocity 
and  separation.  In  all  calculations,  it  is  implicit  that  the  axis  of 
rotation  is  located  at  the  quarter-chord,  point  and  that  the  blade  is  a 
symmetrical,  11. 9 -per cent- thick  Joukcwski  airfoil.  The  geometric  blade 
angle  of  attack  must  be  known  before  calculations  are  made.  In  the  hover 
case,  the  constant  of  proportionality  between  the  inflow  and  the  span 
must  also  be  known. 

Por  both  cases,  the  chordwise  dimension  is  transformed  so  that  in  the 
transformed  coordinates,  the  distance  from  the  stagnation  point  to  the 
separation  point  is  independent  of  span  and  time.  Time  is  more 
conveniently  thought  of  as  the  angle  through  Which  the  blade  has  rotated, 
the  azimuthal  angle  In  the  transformed  coordinates,  the  velocities 
are  expanded  in  an  asymptotic  series  in  the  span.  The  use  of  transformed 
coordinates  makes  it  possible  to  approach  the  separation  point.  The  first 
term  in  the  series  for  the  chordwise  velocity  satisfies  the  two- 
dimensional  boundary  layer  equations  at  the  geometric  angle  of  attack. 
Higher  terms  in  the  asymptotic  series  are  given  by  linear  equations, 
allowing  the  time  dependence  to  be  removed  by  applying  the  principle  of 
superposition.  The  accuracy  of  the  asymptotic  series  cannot  be  easily 
estimated,  but  the  hover  case  seams  to  be  accurate  for  y  greater  than 
about  2.  The  forward  flight  case,  with  sH  “  0,  depends  strongly  on  the 
value  of  va.  For  va  »  .1,  there,  may  be  sufficient  accuracy  for  values 
of  span  greater  than  3  or  4.  For  forward  flight,  y  +  T2,  as  well  as  y, 
must  be  large.  The  asymptotic  series  is  useful  for  relatively  small 
deviations  from  the  solution  at  large  span.  The  most  practicable 
criterion  for  accuracy  is  that  the  higher  terms  be  small  compared  to  the 
first  term  in  the  series.  By  this  criterion,  the  solution  well  fulfills 
its  purpose.  Since  most  helicopter  blades  have  aspect  ratios  greater  than 
10  or  12,  the  solution  is  able  to  assess  the  importance  of  each  effect 
over  most  of  the  blade. 

Many  of  the  effects  seen  in  the  results  have  been  described  in  previous 
work.  The  asymptotic  solutions  at  large  span  showed  that  the  chordwise 
flow  approaches  the  two-dimensional  flow  over  an  airfoil.  At  smaller 
values  of  span,  separation  is  delayed  by  rotational  effects.  Rotational 
effects  cause  an  S-shaped  velocity  profile  in  the  spanwise  flow.  The 
potential  flew  generally  causes  flow  toward  the  axis  of  rotation,  but 
rotational  effects  which  become  important  near  the  surface  cause  outward 
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flow.  Rotation,  by  itself,  has  little  influence  on  the  separation  line 
except  for  the  region  close  to  the  axis  of  rotation. 

In  forward  flight,  the  spanwise  flew  is  much  larger  than  in  the  hover 
case.  The  rotational  effects  are  still  present,  but  the  spanwise  flew  due 
to  yaw  is  dominant.  Through  the  effect  of  changes  in  the  yaw  angle,  the 
chordwise  flow  becomes  time  dependent.  Although  the  present  solution 
cannot  account  for  flapping  or  feathering,  it  is  clear  that  time-dependent 
effects  in  the  forward  flight  case  are  much  larger  than  the  effects  of 
rotation  in  the  hover  case.  The  aerodynamic  angle  of  attack,  which 
changes  with  time,  is  an  important  influence  on  the  chordwise  flow,  and 
the  time  derivative  of  the  chordwise  flow  is  also  important.  The  time 
dependence  decreases  as  span  increases,  and  its  effect  seems  to  diminish 
as  angle  of  attack  increases,  provided  the  inflow  is  held  constant. 

The  time  dependence  can  best  be  assessed  by  examining  the  displacement 
thicknesses  or  the  separation  line,  instead  of  the  velocity  profiles. 

Much  of  the  spanwise  dependence  and  time  dependence  of  the  velocity  has 
been  accounted  for  by  nondimensionalizing  by  u^  and  by  transforming  the 
dimensioned,  normal  to  the  surface  by  a  Falkner-Skan  transformation. 

The  separation  line  oscillates  due  to  forward  flight.  The  maximum 
delay  occurs  at  an  azimuthal  angle  that  seems  to  depend  primarily  on 
the  aerodynamic  angle  of  attack  and  secondarily  on  the  time  derivative 
of  the  chordwise  flow.  In  hover,  separation  depends  almost  entirely  on 
the  aerodynamic  angle  of  attack.  In  forward  flight,  even  for  small 
oscillations  of  the  angle  of  attack,  there  is  a  lag  in  the  response  of 
the  separation  line  to  increases  in  the  angle  of  attack. 

The  rotor  blade  under  consideration  is  part  of  a  rotor  disk  which 
generates  thrust.  The  values  of  angle  of  attack,  thrust,  and  inflow 
were  chosen  to  be  representative  of  two  specific  helicopters.  As  thrust 
increases,  both  angle  of  attack  and  inflow  increase.  In  hover,  separation 
is  closely  correlated  to  the  aerodynamic  angle  of  attack.  The  form  or 
magnitude  of  inflow,  thrust  or  geometric  angle  of  attack  was  unimportant 
except  for  its  influence  on  aerodynamic  ang.’.e  of  attack.  In  forward 
flight,  the  situation  is  much  more  complex.  At  constant  angle  of  attack, 
increased  inf  lew  delays  separation  and  increases  time  dependence.  For  no 
inflow,  time  dependence  decreases  as  angle  of  attack  increases,  but  for 
large  inflow  the  opposite  is  true.  Inflow  also  shifts  the  phase  angle 
of  the  separation  line  through  its  influence  on  the  aerodynamic  angle  of 
attack.  When  the  dependence  of  the  separation  line  on  thrust  is 
considered,  the  magnitude  of  the  oscillations  increases  as  thrust 
increases,  and  for  normal  values  of  thrust,  inflow  is  the  primary 
influence  on  the  phase  angle  of  the  separation  line. 
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CONCLUSIONS 


As  a  raault  of  the  present  study,  certain  conclusions  can  be  made 
regarding  the  effects  of  rotation,  forward  flight  speed  and  inflow  on 
the  laminar  boundary  layer  development  and  laminar  separation  line  on  a 
rotating  helicopter  blade.  The  analysis  is  limited  in  that  such  effects 
as  lead** lag,  flapping,  feathering,  and  reverse  flow  must  be  excluded  at 
this  time  due  to  the  mathematical  complexity  involved  in  including  these 
effects.  Within  the  framework  of  the  present  analysis,  it  is  concluded 
thatt 

1.  The  technique  of  scaling  the  chordwise  coordinate  so  that 
separation  always  occurs  at  the  same  location  in  the  scaled 
coordinate  offers  an  excellent  method  for  studying  three- 
dimensional  time-dependent  boundary  layers  where  the  separation 
line  varies  with  spanwise  location  and  time. 

2.  The  normal  delay  of  the  separation  line  near  the  axis  of 
rotation  due  to  blade  rotation  is  obtained.  This  effect  has 
been  previously  obtained  by  a  number  of  investigators  and  is 
well  known.  As  usual,  the  chordwise  flew  asymptotically 
approached  the  two-dimensional  flow  over  the  blade  at  large 
span. 

3.  In  the  hover  case,  two  solutions  have  been  obtained*  the 
normal  hover  case  with  a  linear  variation  oi'  inflow,  and 
in  the  forward  flight  solution,  the  limiting  case  of  zero 
forward  flight  speed  in  which  the  inflow  is  constant.  In 
each  case  the  delay  in  separation  due  to  rotation  is  still 
present,  but  the  main  effect  of  the  inflow  is  to  change  the 
aerodynamic  angle  of  attack.  Compared  at  the  same  span  and 
aerodynamic  angle  of  attack,  neither  the  form  of  the  inflow 
(constant  or  variable  along  the  span)  nor  its  magnitude  has 
a  significant  effect  on  the  separation  point.  As  in  two- 
dimensional  flow,  increasing  the  aerodynamic  angle  of  attack 
moves  separation  forward  on  the  blade. 

The  main  effect  of  thrust  level  is  to  change  the  aerodynamic 
angle  of  attack,  by  altering  both  the  geometric  angle  of  attack 
and  the  inflow  velocity.  As  the  thrust  level  is  increased, 
the  geometric  angle  of  attack,  the  inflow  velocity,  and  the 
aerodynamic  angle  of  attack  are  all  increased.  In  general, 
then,  increasing  the  thrust  level  moves  the  separation  line 
forward  on  the  blade.  However,  increasing  the  thrust  level 
decreases  the  spanwise  variation  of  the  separation  line. 

4.  At  normal  helicopter  forward  flight  speeds,  the  dominant 
spanwise  flow  is  the  time-dependent  flow  due  to  the  angle  of 
yaw.  This,  together  with  the  time-dependent  chordwise  flaw 
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due  to  changing  yaw  angle,  causes  a  time-dependent  separation 
line  oscillating  about  the  no- forward- flight  separation  line. 
Both  the  average  delay  in  separation  and  the  oscillations  are 
diminished  as  the  angle  of  attack  of  the  blade  increases  (if 
inflow  is  held  constant)  . 

The  simultaneous  action  of  inflow  and  forward  flight  speed 
causes  the  magnitude  of  the  oeci nations  of  the  separation  line 
to  increase,  for  a  given  geometric  angle  of  attack.  When  the 
inflow  is  zero,  the  time  dependence  of  the  separation  line  is 
dominated  by  the  time  derivative  of  the  chordwise  flow.  It  is 
most  favorable  to  delayed  separation  at  the  extreme  downstream 
position  of  the  blade.  This  makes  the  maximum  delay  in 
separation  occur  at  ♦  ■  360*.  Inflow  causes  the  aerodynamic 
angle  of  attack  to  vary  with  time  so  that  it  is  smallest  at 
p  ■  270*.  the  combination  of  inflow  and  forward  flight  shifts 
the  maximun  delay  of  the  separation  line  into  the  fourth 
quadrant. 

In  the  forward  flight  case,  increasing  the  thrust  level  moves 
the  separation  line  forward  at  all  values  of  ^  and  increases 
the  magnitude  of  the  peculations  of  the  separation  line. 

5.  Increases  in  forward  flight  speed  cause  the  magnitude  of 
oscillations  of  the  separation  line  to  increase. 

6.  When  plotted  as  a  function  of  angle  of  attack,  the  separation 
line  in  forward  flight,  for  fixed  span,  describes  a  loop  (for 
normal  thrust  levels) .  This  indicates  that  the  oscillations 
of  the  separation  line  are  not  correlated  with  angle  of  attack 
alone,  as  in  the  hover  case.  This  indicates  that  other 
nonsteady  effects,  in  addition  to  the  tine  varying  angle  of 
attack,  are  important  in  determining  the  separation  line. 

7.  When  the  inflow  is  zero,  the  phase  advance  angle  (the  angle 
between  the  maximum  of  the  shear  stress  at  the  wall  and  the 
maximum  of  the  velocity  at  the  edge  of  the  boundary  layer) 
agrees  qualitatively  with  the  solution  of  Lighthill.10 
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RECOMMENDATIONS 


The  technique  of  scaling  the  chordwise  coordinate  ao  that  separation 
always  occurs  at  the  same  location  in  tha  scaled  coordinate  offers 
an  affective  method  for  attacking  the  more  realistic  problem  of 
turbulent  boundary  layers  on  rotating  blades.  It  is  reccsmaended, 
therefore,  that  this  method  be  employed  in  a  study  of  the  turbulent 
boundary  layer  on  a  rotating  helicopter  blade. 

Additional  studies  should  be  conducted  to  Isolate  and  determine  more 
clearly  the  true  nature  of  the  unsteady  boundary  layer  effects  on 
the  separation  line  on  a  helicopter  blade.  A  first  step  would  be 
to  eliminate  the  effects  of  rotation  and  study  the  nonsteady  boundary 
layer  effects  alone  on  an  airfoil  blade. 

Additional  work  mist  be  done  to  include  the  effects  of  lead-lag, 
feathering,  cyclic  pitch,  and  flapping,  which  occur  in  real  helicopter 
bladu  motions,  into  the  analysis  of  the  boundary  layer  on  rotating 
blades.  It  is  recoesaended  that  a  continuing  effort  be  made  to  develop 
techniques  which  will  allow  the  incorporation  of  these  effects  into 
the  boundary  layer  analysis. 
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APPENDIX  I 
THRUST  CALCULATIONS 


In  order  to  calculate  the  boundary  layer  development  on  a  rotating  blade, 
it  is  necessary  first  to  determine  the  inviscid  flow  over  the  blade.  In 
practice,  this  inviscid  flow  depends  on  such  factors  as  the  geometry  of 
the  blade  (airfoil  section),  the  geometric  angle  of  attack  of  the  blade, 
the  forward  flight  speed,  and  the  inflow  velocity  due  to  the  blade  system. 
In  the  design  of  a  real  helicopter,  these  factors  are  not  independent  and 
therefore  cannot  be  chosen  arbitrarily.  The  inflow,  for  exauple,  depends 
upon  the  airfoil  section,  the  geometric  angle  of  attack,  and  the  forward 
flight  speed,  as  well  as  on  the  number  of  blades  in  the  helicopter  rotor 
Njj,  the  radius  (spam)  of  the  blauie  system  R,  the  thrust  level  T,  the 
rotational  sp^-C  ft,  arnd  the  blade  chord  c.  It  is  not  possible,  therefore, 
to  assign  values  to  each  of  these  parameters  independently.  In  order  to 
obtain  a  reasonably  consistent  set  of  parameters  required  to  determine 
the  potential  flow,  calculations  were  mauie  for  two  helicopters  for  which 
some  of  the  a&ove  parameters  were  specified  in  the  contractual  arrangement 
for  the  present  work.  The  remadning  parameters  were  then  calculated  using 
simple  momentum  theory  and  blade  element  theory,  ttie  calculations 
required  to  obtain  the  above  parameters  are  outlined  herein. 

In  the  present  work,  the  potential  flow  calculations  were  mauie  for  two 
helicopters.  The  first  was  a  helicopter  with  a  two  bladed  rotor  of 
24-foot  radius,  a  blade  chord  of  21  inches  with  the  rotor  rotational 
velocity  of  295  revolutions  per  minute,  and  blade  loadings  corresponding 
to  vehicle  gross  weights  of  6,000,  8,000,  and  10,000  pounds.  The  second 
helicopter  was  to  have  six  blades  of  40- foot  radius  and  24-inch  chord, 
with  a  rotational  velocity  of  143.3  revolutions  per  minute  amd  blade 
geometric  angles  of  attack  of  0  and  4  or  6  degrees.  In  each  case  the 
blfde  airfoil  section  was  a  11. 9 4- thick  symmetrical  Joukowski  airfoil  and 
the  blades  were  assumed  to  operate  in  an  atmosphere  of  density 
0.0765  lbm/ft3  and  with  a  speed  of  sound  of  1117  ft/sec.  These  operating 
conditions  are  summarized  in  Table  III,  together  with  several  parameters 
which  characterize  the  airfoil  aerodynamics. 

It  is  also  necessary,  in  the  forward  flight  case,  to  prescribe  the  forward 
flight  speed.  In  order  to  compare  the  two  helicopters  on  the  same  basis, 
the  speed  calculations  were  made  for  both  helicopters  at  forward  flight 
speeds  of  25,  50  and  100  knots.  This  corresponds  to  values  of  sjj  of 
0.7807,  1.5613  and  3.1226  for  the  24-foot  rotor  amd  to  values  of  1.406, 
2.812  and  5.625  for  the  40- foot  rotor. 

These  prescribed  values  are  still  not  sufficient  for  the  calculation  of 
the  potential  flow  over  the  blade  section.  For 'the  helicopter  with  the 
24-foot  rotor,  it  will  be  necessary  to  determine  the  geometric  angle  of 
attack  and  the  inflow  velocity;  for  the  helicopter  with  the  40-foot  rotor, 
it  will  be  necessary  to  determine  the  thrust  level  amd  the  inflow 
velocity. 
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TABLE  III.  CHARACTERISTICS  OF  TWO  HELICOPTERS 


Symbol 

Dimensions 

24-Foot  Rotor 

40-Foot  Rotor 

R 

ft 

24 

40 

n 

RPM 

295 

143.3 

c 

ft 

1.75 

2.00 

Nb 

- 

2 

6 

ar 

- 

13.71 

20.00 

T 

lb 

6,000 

- 

8,000 

- 

10,000 

- 

- 

0  1 

“b 

deg 

- 

4  or  6 

flc 

ft/ sec 

54.06 

30.01 

0 

r 

- 

0.04642 

0.09549 

Mt 

- 

0.665 

0.6884 

wpfl2R* 

lbf 

2.360  x  106 

4.302  x  IQ6 

The  calculations  required  to  obtain  these  additional  parameters  were  based 
on  momentum  theory  and  blade  element  theory.  For  clarity  and  convenience, 
the  simplest  fora  of  each  theory  will  be  used  and  all  variables  will  be 
written  in  nondimens  ion  a  1  form.  Both  of  these  theories  are  available  in 
texts  on  helicopter  aerodynamics.19'20 

The  starting  point  for  each  of  these  theories  is  the  thrust  coefficient 
defined  by 
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T 


_ T _ 

»  p  R2  (OR)2 


(85) 
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WRift* 


The  simple  or  classical  momentum  theory  relates  an  element  of  thrust  dcT 
to  the  downflcw  velocity  v^  in  an  annulus  of  radius  y  and  width  dy  by 


d  °T  ’  "  ss  (2  V  ”4 

*R 


y  dy 


(86) 


where  S  -Vs^  +  v2.  The  thrust  coefficient  is  found  by  integration  over 
the  span  and  azimuthal  angle: 


cT  M  /  /  <5  cT  d  f  dy  (87) 

0  0 


For  the  hover  case,  the  forward  flight  speed  is  zero,  and  the  inflow 
velocity  is  taken  herein  to  have  the  form  v^  *  -w^y.  This  yields 


c 


T 


2 

0} . 

l 


(88) 


For  the  forward  flight  case,  the  inflow  is  taken  herein  to  be  constant, 
i.e. ,  v^  *  .  integration  of  Equation  (87)  for  this  case  yields 


C  -  2V? 
T  H 


+  v 


a 

*4 


(89) 


In  either  case,  then,  *jne  momentum  theory  yields  a  relation  between 
thrust  coefficient  and  inflow  velocity. 

The  simplest  blade  element  theory  calculates  the  lift  from  the  slope  of 
the  two-dimensional  lift  curve  ag.  It  is  assumed  that  the  angle  of  attack 
and  inflow  are  small  so  that  tan  o^  »  and  tan  (v^  /  Cg)  *  v.  /  Uq.  The 
velocity  relative  to  the  blade_in  the  chordwise  direction  consists  of  the 
inflow  in  the  z  direction  and  Uq  in  the  plane  of  rotation.  Further  Uq 
contains  two  components:  one  due  to  the  rotation  and  the  other  due  to 
forward  flight.  An  element  of  one  blade  of  length  dy  then  produces  an 
element  of  thrust  of 


d  C. 


2tt 


^4  <Qb  50  *  O0  V  dy 
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where 


a0  it  the  elope  of  the  lift  curve  (taken  as  6.016  per  radian, 
corresponding  to  an  NACA  0012  airfoil) 

uQ  -  y  +  *H  sin  * 

For  the  hover  case  (sH  ■  0,  v^  -  y) , 

Ct  "  a0  °r  (°b  “  “i>  '  6 

where 

c  ■  N.  c  /  nR 
r  b 


The  number  of  blades  in  the  helicopter  rotor  has  been  incorporated  into 

the  solidity  of  the  rotor  o  .  For  the  forward  flight  case  (v.  ■  -v  ) , 

r  l  & 


c 


t 


The  blade  element  theory  relates  the  thrust  coefficient  to  the  geometric 
angle  of  attack  and  the  inflow.  When  the  results  of  blade  element  theory 
are  combined  with  the  results  of  momentum  theory,  one  has  two  relations 
between  the  thrust  coefficient,  the  geometric  angle  of  attack  and  the 
inflow.  If  any  one  of  these  is  given,  the  other  two  jure  then  uniquely 
determined. 

The  aerodynamic  angle  of  attack  is  also  necessary  in  the  calculation  of 
the  potential  flow.  Once  the  geometric  angle  of  attack  is  known,  the 
aerodynamic  angle  of  attack  is  easily  computed  from  the  simple  geometric 
relationship 


a  ■  a.  -  arc  tan  — 
a  b  0. 


These  relations  have  been  utilized  to  obtain  the  additional  information 
necessary  for  the  potential  flow  calculations  in  the  present  analysis. 

In  the  case  of  the  24-foot  rotor  system,  they  are  used  to  obtain  the  blade 
geometric  angle,  the  inflow  constant,  and  the  aerodynamic  angle  of 
attack.  In  the  case  of  the  40-foot  blade  system,  they  are  used  to  obtain 
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the  inflow,  the  aerodynamic  angle  of  attack,  and  the  thrust.  The 
thrust  level  for  the  40-foot  rotor  sysem  is  not  used  directly  in  the 
calculations  but  is  obtained  as  a  matter  of  interest.  The  results  of 
these  calculations  are  presented  in  Table  IV  for  the  hover  case  and  in 
Table  V  for  the  forward  flight  case.  In  Table  IV,  the  aerodynamic  angle 
of  attack  corresponds  to  the  presented  values  of  geometric  angle  of  attack 
and  inflow  constant  .  In  the  case  of  forward  flight,  the  aerodynamic 
angle  of  attack  varies  *ith  azimuthal  angle  and  therefore  is  not  presented. 


TABLE  IV.  THRUST 

CALCULATIONS  IN  HOVER 

Rotor  Span 
(ft) 

Aerodynamic 

Angle  of  Attack 
(deg) 

Thrust 

(lbf) 

Geometric 

Angle  of  Attack 
(deg) 

Inflow 

Constant 

24 

3.12 

6,000 

6.01 

0.0504 

24 

4.16 

8,000 

7.50 

0.0582 

24 

5.21 

10,000 

8.94 

0.0651 

40 

0 

0 

0 

0 

40 

2.38 

17,140 

6.00 

0.0631 

TABLE  V. 

THRUST  CALCULATIONS 

FOR  A  FORWARD  FLIGHT  SPEED  OF 

Rotor  Span 
(ft) 

Thrust 

(lb*) 

Geometric 

Angle  of  Attack 
(deg) 

Inflow 

Constant 

24 

6,000 

3.349 

0.0765 

24 

8,000 

4.465 

0.1020 

24 

10,000 

5.581 

0.1274 

40 

0 

0 

0 

40 

25,600 

4.000 

0.2117 
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The  information  given  in  Tables  IV  and  V,  together  with  that  given  in 
Table  III,  is  sufficient  to  make  the  calculations  of  the  inviscia  flow 
over  the  blade. 
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APPENDIX  II 
COMPUTER  PROGRAMS 


Separate  computer  programs  were  used  for  the  hover  case  and  the  forward 
flight  case.  In  "Method  of  Solution, "  the  more  important  features  of 
these  programs  were  discussed.  The  programs  themselves  have  been  well 
annotated  by  comment  cards,  and  a  brief  list  of  the  correspondence  between 
the  variable  names  used  in  the  report  and  the  FORTRAN  names  is  presented 
in  Table  VI.  The  listing  of  the  programs  follows.  The  subroutine  RKl  is 
omitted  from  the  forward  flight  program  because  it  is  shown  in  the  hover 
program. 


TABLE  VI.  FORTRAN  NOMENCLATURE 

Name  Used  in  the  Report 

FORTRAN  Name 

F0 ' 

<V  Gfc.  etc. 

DVDZ 

<V  Goi'  etc* 

VEL 

mio 

XM10 

X 

X 

Ax 

DX 

£ 

XI 

A£ 

DXI 

“b 

(degrees) 

ALPHB 

°b 

(radians) 

AB 

e 

EPS 

6 

DELTA,  DEP,  DET 

si 

DEI 

0 

T 

°i 

SI 

n 

Z 

An 

DZ 
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e  a  FORTRAN  PROGRAM  FUk  A  ROTATING*  HOVERING*  SYMMETRIC  AIRFOIL  WITH 
C  LIFT  I  INFLCW-TRMSPAN 

C  PROCRAM  SIZE:  97880  BYTES  IN  FORTRAN  IV-G,LEVEL1,M0D3,RELEASEI5 

C  LESS  THAN  100  PAGES  ARE  PRINTED 

C  RUN  TINE  (CPU)  IN  MINUTES-5+.4*(KMAX-34)  WHERE  KNAX  IS  THE  VALUE 
C  CF  K  AT  THE  LAST  STATION  AND  NACHINE  IS  IBH  360/75  AT  TUCC 
IPPLICIT  REALMS  (A-H.O-Z) 

CCNNON/B I J/EPS*SGN, 81* 82*6  3.  e4*B5.B6*B7* 88* 89*810 
C  THIS  OINENSION  STNT  ASSURES  K<46* IBLUP<6I»M<4» J<6*L<73» I<5«ITER<10 
DIMENSION  X(45).0X(45)«XI(45)«0XI (45)  *BP(20) *NBLUP(60 )»V(3*5)» 

1  D0(3*5)*Y(3,5*72.4).ST(6)«U(3*5 )  *ERR ( 9 )  *DVZ ( 5,9),ITERXP(5)  , 

2  HIS (91 *V INF (5)*Z(72)»CZ(72)*A(3*S»72)*S(4)  * THT( 5 1 *XD2 (51 

DIMENSION  PCC( 50)*UT IL ( 5C )»VDEL( 50) ,TK(61»E(41«UP(751 ,VP(75 )  * 

D  IL1N(4*4) 

EXTERNAL  CSOX 

ACCURACY  IS  CONTROLLED  BY  THE  VALUES  OF  ERRHAX.ZNAX.DXI (X) * JS* 

CZ ( L I  * INAX 

ERRHAX  SEEMS  TO  HAVE  LITTLE  EFFECT  ON  ACCURACY, BUT  IF  IT  IS  TOO 
SMALL  THE  VALUE  CF  THE  2NC  DERIVATIVE  OF  THE  STREAM  FUNCTION  VRT 
ETA  (OVCZ)  CANNOT  BE  FOUND  TO  SUFFICIENT  ACCURACY  AT  THE  WALL  TC 
CONVERGE  THE  EQUATION. 

ZMAX  MUST  BE  LARGE  ENOUGH  SO  THAT  DVDZ  IS  LESS  THAN  ABOUT  .001 
AT  ZMAX;  IF  IT  IS  LARGER 'THAN  NECESSARY  SPEED  AND  CONVERGENCE 
WILL  SUFFER.  THE  LARGER  ZMAX  IS*  THE  MORE  AN  ERROR  IN  DVDZ  AT  THE 
WALL  MILL  AFFECT  THE  ERROR  IN  VELOCITY  AT  ZMAX*  ESPECIALLY  NEAR 
SEPARATION. 

THE  EFFECT  OF  DXI(K)  IS  DESCRIBED  AT  LENGTH  IN  THE  AIAA  JOURNAL* 
VOL.  1*  P.2062,  1963*  ANC  IN  PREVIOUS  WORK  BY  A.M.O.  SMITH 
THE  ERflCR  IN  THE  RUNGE  KUTTA  INTEGRATION  IS  PROPORTIONAL  TO  DZ**4 
THE  ERROR  IN  RK3  IS  PROPORTIONAL  TO  H**4,  H  IS  DETERMINED  BY  JS 
IP  AX— l  MAY  NOT  BE  LARGER  THAN  THE  NO.  OF  PREVIOUS  K  STATIONS 
KNOWN.  FCR  K>-8  (K  STARTS  AT  5)  IMAX-3  MAY  GIVE  SUFFICIENT 
ACCURACY  FOR  THE  XI  CER1VATIVES. 

BEGIN  SECTION  1 
PARAMETERS  FOR  VELOCITY  ECNS 
LMAXU-69 
LPAX-40 
JCIP-5 

JCIM  IS  THE  NO.  CF  EQNS  •  IT  IS  THE  MAXIMUM  VALUE  OF  J 
DC  67  1*1,4 
67  S ( I  1-0.00 

CC  1480  J*l,5 
JCIM<*5  REQUIRED 
VINF ( J)*0.00 
CC  1480  P«l*3 
CC  1480  l*l,LMAXU 
CO  1480  1*1,4 
80  Y(M*J*L,I 1*0.00 
VINF (11*1. CO 

IN  THE  LOCAL  IMPLEMENTAT ION  AT  TRIANGLE  UNIVERSITIES  COMPUTING 
CENTER  (TUCC),  FILE  1  IS  THE  DATA  CARDS  AT  THE  END  CF  THIS  DECK. 
FILE  2  IS  THE  CARD  PUNCH,  FILE  3  IS  AN  133  SPACE/LINE  PRINTER 
THE  FIRST  DATA  CARD  HAS, IN  FORMAT ( 5F 15. 1C  1  THE  INITIAL  ESTIMATES 
CF  CVZ  FCR  THE  S  EQNS. 

THE  2ND  OATA  CARO  CONTAINS, IN  FORMAT (E 1C . 7.F1C .4 ,?F 10.7 ,F20. 16 , 
F10.7)  THE  VALUES  OF: 

1  XC:  THE  PCSIT ION  OT  AXIS  CF  ROTATION  ALONG  THE  CHCRD;XC-.75  IS 
25*  CHORC 

2  ARS  THE  ASPECT  RATIO?  IT  IS  USED  ONLY  IN  STMT  8189 

3  ALPHB:  THE  GECMETR IC  ANCLE  OF  ATTACK  OF  THE  BLADE  IN  DEGREES 

4  TR:  THE  NONCIMENSIONAL  INCUC^D  VELOCHY*TR*(SPAN/CHCRD) 

IT  IS  OF  THE  ORDER  OF  Tie  SQUARE  ROOT  CF  THE  COEFFICIENT 
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OF  THRUST 

5  XIINFt  THE  POSITION  OF  THE  STAGNATION  POINT  IN  BOOT  COORDINATES 

IT  IS  NORMALLY  NEGATIVE. I. E.  ON  THE  BOTTOM  SURFACE  CF 
THE  AIRFOIL. IF  IT  IS  NOT  KNONN,  REAO  IN  A  VALUE  OF  14.00 
AND  THE  PROGRAM  MILL  CALCULATE  A  CORRECT  VALUE 

6  RK2i  THIS  IS  THE  CONSTANT  K2  IN  THE  EQN  FOR  LONER  CASE  Q.  IF  IT 

IS  NOT  KNONN. PUT  IN  AN  ESTIMATE! SAY  .1)  AND  AFTER  THE  PGM 
RUNS  IT  MAY  BE  FOUND  BY  EXTRAPOLATING  -F2C"/F2K"  TO  THE 
SEPARATION  POINT  XIS.  XIS  IS  THE  VALUE  OF  XI  AT  NHICH  FO" 
AT  THE  NALL  (YO.I.2.11)  GOES  TO  ZERO.  SINCE  THE  1ST  EQN 
(FOR  FO)  HILL  NOT  CONVERGE  FOR  FO"  AT  HALL  <  .06  TO  .06. 
XTS  IS  FOUNO  BY  EXTRAPOLATION. 

READIl, 1481)  (OVZ(J.l).  J-l.JOIM) 

1481  FCRPAT ( 5F IS . 10 ) 

THIS  NRITE  STMT  IS  FOR  CHECKOUT  PURPOSES 
WRITE0.2001)  (DVZ(J.l).  J-l.JOIM) 

2001  FORMAT!  •  OVZ-' ,6018.9  I 
CC  1399  IS-1,5 

1399  HISUS)-. 500*1  IS/3«IS/5) 

CO  1485  K-1,3 
1485  U(M, 11-0.00 

CVZINC-. 00500 
ERRMAX-2.0-5 

NRITEI3, 152)  JDIM.LMAX.ERRMAX 

152  FORMAT!/'  NO.  EONS-' , I2,5X,'LMAX  MUST  BE  <•  . 13, 5X, 'MAX  ERROR  IN  VE 
FLOCITY  AT  MAX  ETA-' ,012.5/) 

CZST-.1C0 
ZMAX-5.5 
Z(2)-0.00 
CZ(l)*.l 
2(1)—. I 

FIX  STEP  SIZE  IN  ETA  (Z)  ANO  INCREMENT  OF  ETA  (CZ) 

CF-0 

CC  1484  L-2.LMAXU 
Z!L)-(L-2)*0ZST 
IF!  Z(L )  .LT.  ZMAX  )  LLL-L 
484  CZ(L)-Z(L)-Z(L-1) 

ZPAX-ZILLL-1) 

CZST-CZ (LLL ) 

K-0 

CC  954  L-LLL.LMAXU 
CZE-2.D0*CZ (L-l ) -OZ (L-2 ) 

D12-1.D0/CZST+ZM AX-Z (L-l  I-CZE/4.CC 


CZ(L)-(i.C0+ZMAX**2*Z(L-t)*(Z(L-l)-?.DG*ZMAX)  J/D12 
IF!  DZ(L )  .GT.  .400)  N-l 
I.F ( N.EQ.  1)  CZID-.4C0 
954  Z(L)-Z(L-l)*CZ(l I 

NRITE (3, 1482 )  (L  , Z (L J , DZ (L  )  ,L* l.LMAXU ) 

482  FORMAT!/  •  L'»6X,'Z* ,9X,'0Z',6X»'L',6X,'Z' r9X»'DZ'»6X,'L',6X,'Z' 

1,9X,'C2',6X,'L',6X,  *Z'  ,9X,  »D.Z' ,  fcX.'L' ,6X.'Z  •  ,9X  , 'OZ  •/  (I4.2F10.6, 
2'}',l4,2F10.6»'i',I4,2FlC.6»';',I4»2FlC.6»';»»I4»2Fl0.6)) 
INITIALIZATION  FOR  "VELOCITY  PROFILES  AT  SELECTED  CHCROWISE 
POSITIONS"  6  MAY  BE  REMOVED  IF  THAT  SECTION  IS  DELETED 
CO  8025  IYP-1,4 
CC  8025  IXP-1,4 
025  ILIMUXP.IYP1-0.C0 
PCNS-50.CC 

END  INITIALIZATION  FOR  "VELOCITY  PROFILES  AT  SELECTED  CH:RDWISE 
ENDPARAMETERS  FOR  VELOCITY  ECNS 
END  CF  SECTION  1 
CEGIN  SECTION  2 

PARAMETERS  FOR  POTENTIAL  FLON 
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C  THROSTILBF)  6000  8000  10C00  .18  17140 

C  TR  .0504  .0582  .0651  .00C2057  .063115 

C  ABIRAOIANS)  .1050  .1310  .1561  .000207  .1048 

C  ALPH8 ! DEG.  I  6.01  7.50  8.54  .0118379  6. CO 

C  XIS  .256  .108  .123  .460  .30 

C  RK2  .365  .226  .081  .898  .450 

C  RCTCR1FEET)  24  24  24  4C 

RE  AD  1 1  *  246  )  XO.AR  , ALPHB , TR , X 1  INF  ,RK2 

246  FORMAT ( F1C.7,F10.4,2E10.7,E2C.16,F10.7) 


C  TA8-TR>0SCRT!2.D0*DSTRTI  IS  NECESSARY  TO  AVOIO  OVERFLOW 
EPS-9. 20-2 

EPS  DETERMINES  THICKNESS  OF  JOUKCWSKI  AIRFOIF 

XO  IS  POSITION  ALONG  THE  CHORD  OF  THE  AXIS  OF  ROTATION;  .25  IS  251 
CHORD 

AR  IS  THE  ASPECT  RAT  10 ; 1 T  IS  USED  ONLY  IN  'VELOCITY  PROFILES  AT 
SELECTED  CHCPDWISE  POSITIONS' 

ALPHB  IS  GEOMETRIC  ANGLE  OF  ATTACK 

THE  NCNC IMESIUNACIZED  INDUCED  VELOC  I TY- TR* I SPAN/CHORD ) 

X I  INF  IS  THE  CHdROW I SE  PCSITICN  OF  THE  STAGNATION  POINT.  IT  IS  lN 
BODY  COORDINATES  AND  IS  NORMALLY  A  NEGATIVE  NUMBER. 

RK2  IS  THE  CONSTANT  K2  IN  Q*  1-K2/YY**2;YY-SPAN/CHCRD 
AR-ALPHH/57. 29578 
T  AB-DT AN ( AB ) 

WRITEI3.400I  XO.AR  ,  ALPHA , TR , X  I  INF ,RK2 ,EP5 , TAB 

400  FORMAT!//  •  THE  POSITION  OF  THE  AXIS  OF  ROTATION  IS • ,F B.4, 'CHORD •/ 
1*  ASPECT  RAT  10= • » F8 .4/ •  GEOMETRIC  ANGLE  OF  ATTACK- • ,F1 2.B , 'DEG. •/ 
2*  COEFFICIENT  OF  INDUCED  VELCC I T Y- TR- •  ,F  12. 8/ •  PGSIITION  OF  THE  ST 
3AGNAT1CN  POINT  IN  HOnY  COORDINATES:  XI  INF-' ,D15.8/'  K2-SF8.4/ 

4'  THE  THICKNESS  CF  THE  AIRFOIL  IS  CONTROLLED  BY  THE  PARAMETER  EPS* 
5,'  ;EPS-'.F12.8,/'  TANGENT  OF  AOA-' .015.8//) 

FRS-OSINCABI 
FBR-— CCCS (mK ) 

FAS— FHR*TR*FBS 
FAR«FBS»TR*FBR 
FI  — f  l.OO*TR*TABI/ITAB-TRl 
SGN-l.CO 

DEI-2. 00/11. CO*FI*FI) 

CE  IS  THE  PARAMETER  DEL TA ; I T  APPEARS  IN  THE  PARAMETRIC  FQNS  FOR 
A  JOUKCWSKI  AIRFOIL.  AS  CE  VARIES  FROM  0  TO  2,  ICHORO  GOES  FROM 
0  TC  1001 

DEI  IS  OE  AT  THE  STAGNATION  POINT. 

SI-OEI-l.CO 
JS- 1200 
H-l.D— 3/JS 
CSTRT-1.0-20 

XSTRT«EPS*DSCRTI2.0G*CSTRT)/(l.C0*EF  *  I 
ifi  xiinf  .gt.  fa. no  iblup-2C7c 
IF!  IBHIP  .NE.  21701  GO  7C  819C 
CEP- l .0-3*0E I 

CALL  RK3  (CSDX.H.XSTRT »  CSTRT.3.C0.DEP.XIINT.0V,  IER) 

H*. 100/ JS 

C*'  l  RK3!OSOX,H,XIIN1,OCP,3.CC,OEI,XIINF,DV,IER) 

C  LSDX  CALCULATES  TI'E  DERIVATIVE  CF  DE  ICR  S  .SINCE  S-CE-1I 
8190  CONTINUE 

I F  (  FI  .IT.  O.CO  1  SGN—I.rc 

C  SGN  - l . DO  FOR  THE  TOPIAPCVE  THE  CHORD  LINE)  CF  THE  AIRFCILJ 

C  SGN— l. DO  FCH  THE  BOTTOM 

I E (  1  BLUE  .EC.  2070  )  XI1NF-XI INF* SGN 
IPLUP-0 

WRI TGI3.4C1  )  SI, XIINF, DEI, FI 
NCI  FERMAT!  •  SI.AlINr.CEI.FI  ',6018,10  ///» 

CUMMY- 1 3. CO 
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B99*DS0X(CUMMY,0EI  I 

CSOX  WILL  CALCULATE  XR  (THE  POSITION  ALONG  THE  CHORC. MEASURED  FRCM 
THE  AXIS  CF  ROTATICNI  ANC  7R  (tiNE-HALF  THE  AIRFOIL  THICKNESS!  AND 
THEIR  DERIVATIVES  WITH  RESPECT  TO  DE  (f J  THRU  B 1 0 1 
eioi-Hio 

CXI (4)*1.2D-6 
CELX*2.5C-3 
XI  m*c*cc 
X  ( 4  I  *  X I  I.N  F 
CE*Ot  I 
T*Sl  ; 

NTX*0 

ENC  PARAMETERS  FOR  POTENTIAL  FLOW 
END  OF  SECTION  ? 

BEGIN  K  LOOP  IN  XI 

K  IS  THE  IMCFX  FCR  XI  ;  CX I (K  )*X  I  (K )-X  1 1  K-  l ) 

DC  30  K=5  ,45 
BEGIN  SECTION  3 

THE  OPT IMIIM  XI  SPACING  DEPENDS  ON  ALPHB  ANO  TR » THE  SPACINGS  USED 
FCR  VARIOUS  COHR IN AT  IONS  CF  THE  TWO  ARE  GIVEN: 

FCR  A1 PHE*6 • G  l  J  TN=.05C4 
DXI  (K)-*.cl  X*(  l  +  K/23+2*  IK/32  M4*  (KMC)  ! 

FCR  ALPHB*  *'35  TR*»  0582 
DXI (K)*CELX*( UK/23*2*(K/33)«2*(K/4C>  ) 

FCR  ALPHE*8.945  TR= .065  1 
CXI  (K)*l)ELX*(UK/23*2*(K/33t) 

FCR  ALPHB-G.OO;  TP.*. 0631 

DXI  IK)nCELX*(l*K/23-K/4642*(K/33)-»2*(K/4C)*6*(KM4)  ) 

FCR  ALPHB*. 011837V:  TR-.0002C57 

0XI(K)*0ELX*(2*K/l3-K/26*K/2H8*(K/22)*  5*(K/29)I 
153  XI(K)*XUK-1)4CXIIK1 
X  (K  )*X  I  IK )4X  I  INI 
CXIK )=DX I (K  ) 

I KAX*4 

IF (K  .LT.  71  GO  TO  516 
DC  1489  J*1 « JOIN 

14  89  CV7IJ»l)*(Y(3,J»2»2)*(X(K)-X(K-2) !-V I  3  ,  J  ,  2 , 3  I *CX (K  I  )/CXIK-l) 

I F ( K  ,LE.  7!  GC  TO  516 
C  K>*8 

S(1)*XI<K)*I  l.C0/(X(K)-X(K-3)m.CC/(DX(K)tDX(K-ll  Ul.DO/DXIK)  ) 

S 1 2  )*-X  Iik)*(X(KI-X(K-3ll*(CX(K|HCX(K-l)|/(  (  OX  (  K-1I +  0X  (K-2  )l* 

2  DX(K-1)*0XCK)  » 

S(3I*XI  <K)*(X(K)-X(K-3)  l*rx (K )/(CX(K-2 l*DX(K- 1  )• (0X1 K )4DX(K-1  >  I  ! 

5  (4 !*-XI CK I  * (CXIK  I+CXIK-I)  l*EX(K !/(  DXU-2)*(DX(K-l)*DX(K- 2 )  )♦ 

4  (XlK I-XIK-3 ) I  I 

C  Sill  IS  THC  COEFFICIENT  CF  THE  VALUE  AT  THE  POINT  K-Ul  IN  FORMING 

C  THT  OFRIVATIVE  XI*  (CER IV  AT  IVE  WRT  XU 

C  IK AX  IS  THE  MAX  VALUE  CF  I 

DC  1437  J*1,JD(M 

1437  CV7 ( J* 1 )*CV7 ( J « I )*DX (k )•  (X ( K  )-X (K-2 ) )* (  VI  3, J,2, 31* (XIK-l l-XIK-3) ) 
0  -Y(3,J,2,4)*nx(k-l)-Y(3,J,2,2)*CX(K-2)  ' ) /( CX (K- 1 )*PX( K-2) ) 

516  IF (K-6 I  518,519,520 
5ie  X  I ( 5 )*CX 1(4) 

rXI(K)*XI(N)-Xl(K-l) 

I KAX*2 
GC  TO  571 
519  CONTINUE 

XI ( 6  I*. 5C-3 
C  K*6 

S  (1 )*1.CC 
SI2)*-1.CP 

CXI(K)*XJ(KI— XII K— 1 ) 
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IMAX-2 

CC  1490  J-l.JOIM 

1490  CV7 ( J,l)-Y(3, J,2,2)»( I .00- 1 . 5D0*DVZ INC ) *.8 
GO  TO  521 

‘2C  IfIK  .GT.  71  GC  TO  521 
C  K-7 

X  1 1 7  )«CX  1(7) 

CXIIK)"XIIKI-XIIK-1) 

CXlKI-DXJfK) 

X(K)-XI(K|4XI1NF 

SID- I  l.OO/OX(K)  41.00/ (0X(KNCX(K>1)))*XI(K  ) 

S(2)«- IDXIK)4t>XlK-l)l/<0XIK)*CXlK-in  *XIIK) 
s  m -nx  u  i/ ((oxm+cx  ik- in*cx<K-n> 

Sm-S(3)*XIIK) 

IMAX-3 

521  CCNTINUC 

X<X)-XI < X  )  +  X I  INF 
CXIKI-OXIIK) 

SGN-l.nO 

IF(XIK)  .IT.  O.DC )  SGN— l.DO 
JS-1 5000*25/ (K*X 141000 
H-<XIK)-X(K-1) )/JS 
H-10.D04H 
CFP-CE 

END  OF  SECTION  3 
BECIN  SECTION  4 

BEGIN  K JLCUL AT ION  OF  THE  FUNCTIONS  OF  Xt  THAT  APPEAR  IN  B.C.  AND  ECKS. 
IF(X<K)*X(K-1) )  3314,1405. 3315 

3314  H-.01D0*H 

THE  VALUE  OF  OE  IS  FOUNC  BY  INTEGRATING  CSDX  TO  XIK)  FROM  XSTRT 
CALL  RK31CC0X.H, XSTRT. CSTRT, XIK », 27.00, XF.DE , IER » 

GC  TO  320 

THE  VALUE  OF  CE  IS  FOUND  BY  INTEGRATING  OSOX  TO  XIK)  FROM  XIK-1) 

3315  CALL  RK3<CS0X,H,XIK-ll,CEP,XfK),21.DC,XF,DE,IER> 

320  CONTINUE 

T-CE-l.CO 
CUMMV-13.00*SGN 
319  899-DSOX (CUMMY.OE) 

WRITE <3, 450)  K.X I <K I , IER, CXI  IK  ),CE, SGN.XIK ) 

450  FQRMATI'  K-',I3,5X,  •XIIK)«',C19.11,10X,' IER-*,I5  /  •  DXIIKI-*, 
1C19.U,5X,*CE«',C19.U,5X,»SGN-»,F5.2,5X,*X<K)-*,019.11) 

eii-2.co*ie2*B44e3*e5) 

ei2>2.00*(B4*fl44B2*H64B5*8S4B3*B7) 

XR-ll.D04EPS)*(T-EPS)*(l.C04((1.0C-EPS)*«2)/Bl)/4.00 
XR«XR4< l.C04EPS*EPS I/2.C0-X0 

IR» .25009(1. C04EPS)*0SGRT(0E*< 1.0C-V3  **« l.DO-l 1.00-EPS)**2/(1)«SGN 
WRITE  13, 451)  XR,B2,B4,B6,7R,E3,B5,B7,ei,B10,eil,B12 

451  FORMAT!  •  XR,R2,84,36, ZR/B3, B5, B7,B1, B10,B1 1,1)12 * , 50 16.9  /7018.1C) 
CES-CSCRTIDE) 

CMSS-OSQRTU.OO-TI 

PS1  IS  1ST  DERIVATIVE  OF  THE  POTENTIAL,  SUB . IPT  SIGMA,  WRT  SIGMA 

PR3  IS  3RC  DERIVATIVE  CF  THE  POTENTIAL,  SUBSCRIPT  RHC,  WRT  SIGMA 
PS0-I1.C04EPS>*T/2.CC 

PRO-1 1.0C4EPS)4<SGN90ES*OMSS-DATAMSGN*DES*Or»SS/T)  )/2.D0 

PS1-I1.004EPS)/2,00 

PS2-0.00 

PS3-0.D0 

PR1-SGN*PS1*CMSS/0ES 
PR2— SGN*PS1/I0MSS*<0ES*43) ) 

PR3-  SGN4PSl*ll.C0-2.0C*T)/<<0MSS4*3)*<0ES4*5)) 

BPI1I-R10 
CC  317  1-2,10 
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317  eP(I>-BPM-l>*ElO 

C  l)S0  IS  1ST  <  0«- 1 1  DERIVATIVE  OF  POTENTIAL#  SUB  SCR  I PT  SIGMA,  HP  I  XI 

C  UR2  IS  3R0  (2+1 1CERIVATIVF  OF  POTENT  I AL#  SUBSCRIPT  PHfj,  WrtT  XI 

US0-PS1/B10 
UR0-PR1/E10 
US1— .5D0*B11/BP>4) 

UR1*US1*PRI+PR2/BP(2 I 
LS1-US1*PS1 

US2»-.500*B12/eP<5MBll*fill/8Pm 
UR2»US2*PR 1-PR2*  1.500*81 1/BP <5 )+PR3/BP( 3) 

US2*US2*PS1  ' 

PHIA  IS  PHI.SUBCRIPT  A.  UAO  IS  THE  FIRST  CtRIVATIVF  OF  "HIA  »RT  X 
UA1  IS  THE  SECCNC  DERIVATIVE..., FTC. 

PHIA-FAS*PSO+FAR*PRG 

UAO«FAS*USO*FAR*URO 

UA1»FAS*US1*FAR*UB1 

UA2»FAS*US24FAR*UR2 

WRITEI3,459)  PRQ«PRl.PR2.PR3tPSC.PSl.PS2.PS3#  USC.LS1 .US2.UPO, 

H  UR1.UR2,  PHIA«UAO#UAl«UA2 

459  FORMAT!  •  PRO,  PR  1 , PR2,  PR3/PSC.  PS  1 , PS2,PS 3  4D2C.il/4D2C.  11  # 

F  •  USOtUSl#  US2#  UR0«URl#Ur«2'  /6D2C.1I/'  PHIA,  LAC, LAI, LA2  ',4020.11  I 
ALPHA  IS  THE  ANGLE.  BETUEEN  THE  NORMAL  TO  THE  SERFAGE  Cf  THE 
AIRFOIL  AND  THE  UPWARD  NORMAL  TO  THE  CHORD  LIKE 
ALPHA-0ATAM83/B2) 

IFISGN  .LT.  O.CO  »  ALPHA*  3.1415926536  ♦ ALPHA 
ADEG*57. 2958* ALPHA 
CC*2.D0*DC0SI ALPHA-AB l/OAC 

VDELTA  IS  THE  FIRST  TERM  IN  THE  EXPANSION  FOR  THE  SPANHISE 
POTENTIAL  FLOW,  WHICH*  VCELTA4V0EL2/YY**2 
VCELTA-PHI A4XR*  I  FBR-FAS )-ZR* !FBS*FAR ) 

P0-XIIK1/UA0 
HO-XI ( K ) *U AO 

XMO  IS  M, SUBSCRIPT  0  .  XH2X  IS  M#SUBSCRIPT  2K 

X-MO*PO*tlAl 

RM*(XM'0+ 1.00 1/2.00 

XM2K«XMO*C1.0O-XMO)4Xl(KI*Xl  (K)*UA2/UA0 
OCDXA* !B4-B2*B1 1/  1 2.00* P 10*6 10 ) )/ { B 1C*B 1C ) 

DS0XA«lB5-B3*Bll/! 2.D0*H1C*B1C) >/(BlC*BlC) 

CCDX»DCDXA*DCOS (  AB>*OSDXA*DSINI  AB > 

0SHX-D4OX A*DCOS I AB  l-OCCX A*OS  IN  I  AB  > 

CS-TR*»I IK)*CS IN  I  ALPHA-46  1 
CS2»RK2* 1CS4TR*X  I  IK  l*> 1!K|*DSWX) 

CC2»RK2*I-XH0*CC*2.00*»'0*CC0X  I 
RL2-2.D0*RK2 
P2«RK2*P0* ( l.DO-XHO I 
VCEL2-RK2  *!HO*l  l.OC-CCMCSI 
H2«RK2*HC*( 1.DO+XMOI 

PCC  IS  SCHORC;  PCNS  IS  TCHORC  NEAR  SEPARATION 
PCCIK)«100.00*(XR*XO) 

LTILIK)«UAO 

VOELIM-VCELTA 

THIS  WRITE  STMT  1$  FOR  CHECKOUT  PURPOSES 
WRITEI3# 1*6)  ALPHA# AE,CCCXA#CSOXA ,OCOX.OSWX 
166  FORMAT!  •  ALPHA, AB,CCDXA,CSDXA,OCDX,DSWX  •  ,2C18.1C,4016.7  I 
VINFI J)  IS  THE  B.C.  ON  THE  VELOCITY  IN  THE  JTH  ECN. 

VINFI51-VOEL2 
VINF12 )*VOELTA 

WRITE  (3,4711  XR,ZR*PCC(K),ADEG,CC,CC2,  HO, H2, PC, P2,l!4C,  VDELTA  #  VDE  L2 
W#CS#CS2,  XMO, XM2K 

471  FORMAT!  •  THE  POINT  HAS  CC0RCINATE5  XR*' ,017. 10, IX, 

l'ANC  ZR*',C17.10,5X, •  TCHORDI AT  INFINITE  SPAN)*' ,017.10/ 

2*  THE  ANGLE  BETWEEN  NORMAL  TO  SURFACE  AND  NORMAL  TO  CHORD* », Cl  7. 10 
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3,'0EG',5X,'CC-',C17.1C,5X,'CC2-'»D17.10/  •  HO-  •  ,017.  10, 5X, 

4  'H2-',017.10,5X,'PO-',O17.1C,5X,'P2-',Dl7.1C,5X,'UA0-',017.l0/ 

5  •  V0ELTA«i',D17.10,5X,'VDEL2-',0l7.10,5X,'  CS»*  ,017.10,5X,'CS2-', 

6  C17.10.5X,  /  •  XMC*',D17.iC,5X,'XM2K-', 017.10  ) 

ZMAX-5.4C0*11.C0*XI(K) 

ZMAX  IS  THE  VALUE  Of  ETA  TO  WHICH  THE  SOLUTIONS  ARE  TAKEN.  FCR 
GOOD  ACCURACY,  ZMAX  SHOULD  BE  CHOSEN  SO  THAT  THE  2ND  DERIVATIVE 
CF  THE  STREAM  FUNCTION  HRT  ETA  (OVDZ)  IS  <-.CCl 
SPEED  ANC  CONVERGENCE  ARE  IMPROVED  IF  LMAX  (WHERE  Z  (LMAX )>-ZMAX I 
IS  AS  SPALL  AS  POSSIBLE 

END  CALCULATION  OF  THE  FUNCTIONS  OF  XI  THAT  APPEAR  IN  B.C.  AND  EONS. 
END  OF  SECTION  4 
1345  DO  979  L-LMAX.lMAXU 

IFIZ(L)  .LE.  ZMAX)  GC  TO  979 

IMAX-L 

GC  TO  980 

979  CONTINUE 
LMAX-LMAXU-1 

980  IF (  l  MAX  ,GT .  LMAXU-1)  LMAX-LMAXU-l 

WRITE  (3.  1481  LMAX, ZM AX, Z(LMAX),H, DC DX, ALPHA 

148  FORMAT!  •  LMAX, ZMAX , Z (LMAX ) ,H,CCDX , ALPHA  ',15,3014.6,2020.12  ) 

WP ITE (3, 149 )  IMAX, (S(I),  1-1,4) 

149  FORMAT!  •  IMAX-', 13,'  S< I)-' ,4020.10  ) 

PEGIN  SECTION  5 

BEGIN  J  LOOP  TO  CHOOSE  VARIABLE 

WHEN  J-IS  12344  5 

STREAM  FUNC  IS  FO  GO  (-2K  F2C  G2 
M  CENOTES  NO.  PRIMES«1 
CC  1500  J-l.JDIM 
IF ( J  .EO.  2)  LM AX-LMAX- 1 
IF  *  J  .EC.  31  LHAX-LMAX+ 1 
LMAX<LMAXU  IS  RECUIREC 
OVZINC-. 00500 

IFIJ.Efl.  1  .AND.  K  .GE.  8)  CVZINC-l.D-9 
ERRMAX  MAY  BE  RECIFINEC  HERE 
Y(2,J,LNAX,1)«VINF(J| 

Y(M,J„L,I)  IS  THE  (M-l)OERIVATIVE  OF  THE  STREAM  FUNCTION  OF  THE 
JTH  VARIABLE  AT  ETA-ZIl)  ANO  XI-XKK-I^ll 

FOR  EXAMPLE, IF  K  CURRENTLY- 12,  Y(2,5,37,3)  IS  G2»  AT  ETA-ZI37)  AND 
XI-XI(IO) 

A(M,J,L)«S( 1)*Y(M,J,L, 1 )-XI*(CERIVATIVE  CF  Y(M,J,L,1)  WRT  XI) 

CC  1491  L-l.lMAXU 
CC  1491  M-1,3 
A ( M, J,L ) -O.CO 
CC  1491  1-2, IMAX 

1491  A(M,J,l)*A(M,J,L)tS( I )*Y  ( M,  J,L,  I ) 

NBLUPIJI-0 

BEGIN  ITERATIONS  ON  B.C.  ON  VELUC1TY  AT  EDGE  OF  B.L. 

ONCE  THE  RUNGE-KUTTA  SCHEME  HAS  INTEGRATED  THE  JTH  EON  FROM  ETA-0 
TC  ETA-ZILMAX-ll.THE  ERROR  IN  VELOCITY  ( Yl 2, J.LMAX- 1, 1 1-VINF ( J) » 

AT  Z(lMAX-l)  IS  STOREC  IN  ERRIITER).  THE  SECOND  DERIVATIVE  AT  THE 
WALL  (DV2 ( J, ITER  ) )  IS  CHANGED  ANO  ITER  INCREMENTED,  THIS  CONTINUES 
UNTIL  ITER-6  ( ECN  PRESUMABLY  NOT  CONVERGENT)  OR  ERR ( ITER XERRMAX 
THE  RUNGE-KUTTA  SCHEME  USED  IS  DESCRIBED  IN  "INTRODUCTION  TC 
NUMERICAL  ANALYSIS"  ,F.B.  HILDEBRAND, MCGRAW-HILL, 1956, PAGE237 
CO  1400  ITER-1,6 
IBLUP-0 
WAYN-O.PO 
WAYP-O.DO 
EPRN-O.DO 
ERRP-0.00 


110 


r»  o  o 


LLP-LPAX*.94K/54K/12 
2848  Y(3*J*2,1 )»DVZ I JtITER ) 

STIRL-0.00 

LLL-LPAX-2 

C 

C  BEGIN  L  LOOP  IN  ETA  II. E.  IN  Z) 

CC  1300  L-2,LLL 

STIl)—.l25CO*IOZIL*l)**2»/(  (C2(L4l)4r2(LI»*CZIU  I 

ST  12  I  1 25C0*CZ IL  < l )* I C2 IL J-OZ IL4 1 J-OZI L42 ) ) /( f DZ I L*1 » 

2  40ZCL42) )*OZ(L) ) 

STI 3 1  — .l2SC040ZIL4  1)*ICZ(L42»-f)ZIL4n-0Zim/M0Z(L4i  ) 

3  40Z(LM*DZ(L42)| 

ST  14)  — .l2*>00*(CZlL4n**2)/l  I0ZCL41 J40ZIL42)  )*DZCL42) ) 

N-0 

C  BEGIN  ITERATIONS  FOR  RUNCE  KUTTA 
CC  1200  IS-2,5 
JP1-J-1 

IF!  ( IS-3 )*  C2-L )  .GT.  0  .OR.  IS  .EQ.  4  )  GO  TO  1527 
IF!  CIS-3)*!  IS-41  .EO.  0)  GO  TO  176 
CO  1492  JT-1.JP1 
00  1492  P-1,3 

C  V(M,JI  IS  THE  Y(P,J,L,1)  EVALUATED  AT  THE  VALUE  CF  Z  RECUIREO  BY 
C  STEP  "IS"  OF  THE  RUNGE  KUTTA  SCHEPE 
VCM.JTI-YIP, JT.L4N, 1) 

1492  CD ( P, JT I *S ( 1 )*Y IP, JT»L4N, 1 )4A(P,JT,L4N) 

CO  1493  P-1,2 

1493  CDI P,J)-A(P,J,L4N) 

GO  TO  1527 

176  DC  1593  P-1,3 

COIP, J)-.500*C A(P»J»L)  4A(P,J,L4l)  ) 

IF  1 J-l >  1692,1692,1693 
1693  DO  1592  JT-l.JPl 

V(P,JT)-.5D0*(YCP,JT,L,l)4YCP,JT,L4l,l)  ) 

CC C P, JT I-.5L0* IS(1)*(YCP,JT,L,1)4  YC P , JT.L41 , 1 ) )4  ACP,JT,L)4 
D  AIP,JT,L4l)  ) 

DC  1592  IST-1,4 

VCP,JT)-V(P,JT)4STIRL*STCIST)*YCP,JT,L-24IST,1) 

1592  CC(P,JTI-Cn(P,JTl4STIRL*ST( 1ST 1*« SIl) *YC P, JT , L-24I ST , l ) 4 
C  A(P,JT,L-2*IST)  I 

1692  CONTINUE 

CC  1593  IST-1,4 

1593  CC(P,J)-CC(P,J)4STIRL*STCIST)*A!P,J,L-24lST) 

1527  N-l 

CC  2732  P-l ,3 

2732  V(P,J)-YCP,J,L,l)4HISCIS)*UCP, IS- 1 » 

UCP.IS)  IS  DZ(L41)*(DERIVATIVE  OF  YCP.J,  ,1)1  EVALUATED  AT  THC  . 
VALUE  OF  ETA  CALLEO  FOR  8Y  IS.  FOR  I S-2  ,ETA»Z 1 1 ) ;  FCR  IS-3£4,ETA- 
>(Z(L)4Z(L4l))/2{  FOR  IS-5.ETA-Z  CL*l ) 
L(2,IS)-0ZIL4l)*tY(3,J,L,l)4FIS(lS)*UI3,  IS-1) ) 
U(l,IS)-CZ(L4l)*(Y(2,J,L, 1)4FISC IS )*UC 2, IS-14 ) 

GO  TO  I l, 2, 3, 4, 5), J 

1  CONTINUE 

C  PQN  1  J-l  Y 12, J,L, 1 )*F0' 

UI3,1S)»XP0*VI2,J)**2-RM*V( l, J )*VI 3, J I-XPC4VC2, J)*(  S(1)*VI2,J)4 

1  CC(2,l)l-Vt3,J)*(S(l)*V(l,J)4DDI 1,1)) 

GC  TO  12C0 

2  CONTINUE 

C  ECN  2  J-2  Y 1 2, J,L, 1 ) -GO* 

UC3,ISI— IRP*Vll.l)4CC(l,l))*V(3, J)4V(2,1)*(S(1)*V(2,J) 

2  4CCC2, 2 ) )  -HO* l I.DO-CC*V( 2, 1 1 ) — C S 
GC  TO  12CC 

3  CONTINUE 


uu 


C  EQN  3  >3  Y(2,J*L«  1I-F2M 

U (3*IS )•- (RN*V ( 1* 1  )4CD ( 1* 1 ) )*V 1 3* J )4( XM0*V(2* 1 >400(2*1) >*V(2* J) 

3  4(XM0-1.00>*.5D0*V(3,1)*V<1,J>4V(2,1)*<S(1)»V(2« J)40DI2,J>) 
s  -vi3timsm*v(i,j)40D(i,j>) 

3  4XM2K*UAO*(V(2.1)**2-.5DO*V(3,l)*V(.l»l)-l.O0) 

60  TO  1200 

4  CONTINUE 

C  EQN  4  J*4  Y(2.J,L*1)-F2C' 

U(3»IS)«“IRM*V  (1,1)400(1, 1)  )*V(3, J)4<  XM0*VI  2t>  1)400(2*1)  )*Vl 2  » J) 

4  4|xMb"i.OO|P.3CO*V(3»l)4Vll,4>4VI2,l>*IStl>«VC2,J)4DO(2.J> ) 

4  -v<3*i)»(s<i)*vii*j>4co(i,j)) 

44X1 IK)4(V(2».2)*V(2»1)4.*4V(3»1I*V(1,2)4CC*( VGELTA-V(2*2))-VDELTA> 
GO  TO  1200 

5  CONTINUE 

EQN  5  J»5  Y 1 2* J*L«i )aG2* 

RK2  IS  USED  IN  THIS  EQN 

Ul3» IS )•- JRMPVI 1,1)400(1*1 ))*VI3»J)4V(2»1)P(S(  1  )*V( 2* J)4DD( 2  * J) ) 
54RK2*(-(  I1.00-XHO)*.500*V(1,3)/UAC4PO*DOII,3)/XI(K)4V(1,1)*XM2M 

5  .500l*V(3,2)4P0*V(2,3)nC(2,2)/XI<K)-(1.00-CC*V(2,l))*H2/RK2 
5  4H0*V(2tl)*CC2/RK2  4X I  IK )*CC*V( 2, 3 1-CS2/RK2  ) 

5-11 1.00-XM0 )* .5004V ( 1, 4  )/UA04PQ*DD( l»4)/XI(K)4.5*P04V(l,2))*V(3»2) 
5  4P04V(2»4I*C0 (2*2 )/XI IK )4XI IK )*CC*V ( 2*4 ) 

1200  U(3,IS)*U(3«IS)*CZ(L4l) 

C  END  ITERATIONS  FOR  RUN6E  KUTTA 
CO  1201  M*l»3 

C  THE  VALUES  AT  ZIL41)  ARE  EVALUATEO 

1201  Y(M,J,L4L,1)«Y(N,J,L,1)4|U(M,2)42.00«(UIN,3)4|J|P,4))4U(P,5))/A.DC 

C  IF  THE  VELOCITY  IS  TOO  LARGE  OR  SMALL, THE  RUNGE-MJTTA  INTEGRATION 

C  IS  STOPPED  AND  THE  VALUE  OF  DVZIJ.ITER)  IS  ADJUSTED  AND  THE 

C  PROGRAM  RETURNS  TO  STMT  2848.'  AFTER  50  A0JUSTMENTSIIBLUR-50) .THE 

C  PROGRAM  MILL  CALL  EXIT  (I.E.  STOP)  AT  STMT  1405 

IF!  Y(2,l,L4l,l)  ,LT.  0  .OR.  Y(2«l,L4l,l)  .61.1.8)  GO  TO  1299 
IF(0A6S(Y(2, J.L41,  i  ) )  .LT.  1.06  i  GO  TO  130C 

1299  IBLUP-  1BLUP41 
NBLUP(J)*NBLUP(J)4? 

IFIIBLUP  .GT.  40) 

IMRITEI3.2849)  IBLUP, J,L* ITER.DVZ I J* ITER) ,Y( 2, J»L4l , 1 ) ,Y( 3, J,L4l, 1 ) 
2849  FORMAT!  14,'  TH  BLOMUPJ  J-'.IB,'  L-',I3,'  ITER3*,  14,'  OVZ3', 

F  020.13,  •  VEL* 1 , 015.6,  •  CVDZ" • *D1 5.6 > 

IMAY«Y(2,J,L4l,l)/0ABS(Y(2*J,L4l,l)) 

IFIIWAY  .GT.  0  )  MAYP*0VZ( J, ITER ) 

IFCIMAY  .LT.  0  )  WAYN-DVZIJ, ITER ) 

IF!  IMAY  .GT.  0  .AND.  L  .GT.  LLM )  ERRP-YI 2 * J.LLM* 1 )-VINF IJ) 

IF  I  (WAY  .LT.  0  .AND.  L  .GT.  LLM)  ERRN-YI2,  J,LI.M,l)i-VINF(  J) 
IFIWAYMNAYP I--2219, 1218*2219 

2219  0VZ(J*ITER)"(WAYN4MAYP)4.5C0 

IFIERRP4ERRN  .NE.O.DOI  CVZIJ, ITER )»(NAYN*ERRP-MAYP*ERRN) /IERRP 
0  -ERRN) 

GO  TO  2220 

1218  DVZI J»ITER)"DVZ< Jt ITER)*(1.D0-IBLUP*IMAY*  .100  *DVZ(d, ITER )/ 

1  DABSIOVZIJ.ITER))  ) 

IF (MAYN*HAYP4( IBLUP/ 10-1 1.NE.C  .AND. DABS  I OVZ I J. I  TER ) ) . LT.  l.D-10) 

I  DVZI J, ITER )*OVZ I J, ITER l-IMAVP .001 

2220  IFIIBLUP  .GT.  50)  GO  TO  1405 
GC  TO  2848 

1300  STIRL-l.CO 

C  END  L  LOOP  IN  ETA  (I.E.  IN  Z) 

ERR  I  ITER )*Y(2, J,LLL4l, 1 )  -VINFCJJ 

C  THE  ERROR  IN  MATCHING  THE  B.C.  ON  VELOCITY  AT  THE  ECGF  OF  THE 
C  BOUNDARY  LAYER  I  ERRt ITTER ) )  IS  USED  TO  FIND  A  BETTER  VALUE  FCR 

C  THE  SECOND  DERIVATIVE  OF  THE  STREAM  FUNCTION  AT  THE  MAU  (CVZIJ. IT 

C  (DVZI J* ITER) )  UNTIL  ERR  I  ITER XERRMAX 
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IF  I  ITER  .GT.3  ) 

C  THIS  WRITE  STMt  IS  FOR  CHECKOUT  PURPOSES 

1HRITE13.965)  K, J, II  ER.L, IS.OVZ ( J. ITER ) ,ERR( I  TER  I 
965  FORMAT!  •  K, J, II ERy L , IS* OVZ , ERR • , 515. 3D15.6 I 
IFIOABS (ERR (ITER))  .LT.  ERRMAX )  GO  TO  1401 
IF ( ITER-2 )  81. 8?. 83 

C  ERRMAX&  OVZINC  CAN  BE  FUNCTIONS  OF  J 
81,  CVZ(J,2)«CVMJ,  1)*(  l.OC-DVZINC) 

GO  TO  1400 

82  0VZ(J,3)-(£RR!2)*0VZ(J,l)-ERH(l)*CVZt J.2) )/ ( ERR ( 2 )-ERR ( 1 ) ) 

GO  TO  1400 

83  C12- (OVZ  (J.  ITER-  l)-cVZ( J,  ITER-2)  >/( ERR  ( I TER-D-ERRI  ITER-2) » 
C23-I0VZ  I  J. ITER )  -OVZ ( J » ITER-l)  >  /  ( ERR ( ITER)  -FRRI ITER-1 ) » 

0123- (023-012) /( ERR ( ITER )-ERR( ITER-2)) 

OVZ (J. ITER+1) -OVZ (J. ITER)-ERR( ITER  )*( D23-ERR ( ITER- 1 )*0123 ) 

1400  CONTINUE 

C  ENO  ITERATIONS  ON  B.C.  ON  VELOCITV  AT  EDGE  OF  B.L. 

1405  NR  I TE(3. 1403 1  J 

1403  FORMAT ( •  EON  NO.*, 12,'  FAILS  TO  CONVERGE  BECAUSE*  ) 

IF! IBLUP  .GT.  50)  WRITE! 3. 8166  )  tTER.Z(L) 

8186  FORMAT!*  FOR  ITER-*.I2y*.  THE  VELOCITV  BECAME  TCC  LARGE  OR  TOO*. 

1 'SMALL  FOR  ETA-*, 015. 6  /  •  THE  VELOCITIES  ARE  CHECKED  FOR  SIZE*, 

2 • AFTER  SfMT  1201*) 

IF (  ITER  .GE.  61  WRITE ( 3, 8 187  I  I  ERR ( I ) ,DVZ I J, I ) . I ,1-1 ,6 ) 

8187  FORMAT!*  THE  B.C.  AT  ZILMAX)  WERE  NOT  MATCHED  AFTER  6  ITERATIONS.1 
F'CN  THE  SECOND  DERIVATIVE  OF  STREAM  FUNCTION  AT  NALL  (OVDZ)  •// 

2*  THE  ERROR  IN  MATCHING  B.C.  OVDZ  AT  THE  WALL  ITERATION*/ 

3  (  8X,C14.7,8X,022.15,5X,I2)  ) 

CALL  EXIT 

1401  CONTINUE 
ITERKPI Jl-ITER 

CC  2324  L-LMAX.LMAXU 

C  THE  STREAM  FUNCTIONS  ( VI 1,  J.L,  1  M  ."VELOCITIES"!  YI2,  J.L,  IM  ,  AND 

C  "SHEAR  RATE", (Y(3, J.L, 1)1  ARE  CALCULATED  UP  TO  ZlLMAXU)  IN  CASE 

C  LMAX  INCREASES  AT  THE  NEXT  XI (K)  STATION 

m.J.L*l)-Y(l,J,LLL«l.l)4V!NF(J)*(Z(L>-Z(LLL  +  l) ) 

Y(3,JtL*l  )-Y (3. J.LLL+ 1, 1 1 
2324  V(2,J,L,1)-VINF(J) 

1500  CONTINUE 

C  ENO  J  LOOP  TO  CHOOSE  VARIABLE 
C  ENO  OF  SECTION  5 

C  BEGIN  SECTION  6 

00  157  J-l.JCIM 

157  IF (DABS  (YI3, J.LLL+1, 1 1 )  .GT  .  1.0-3)  N-27 

WRITE  13.8183 )  (J.J-l.JOIM) 

8183  FORMAT!/*  CONVERGENCE  ACHIEVED  FOR  J-  • ,5X,6( 13. UX) > 

WRITE (3,81841  (NBLUP(J).J-l.JOIM) 

8184  FORMAT!  •  NO.  ITERATIONS  TO  REACH  Z (LMAX > • ,5X,6( 13,  1 IX  )  ) 

WRITE !3, 8185 )  ( ITERKP! J ), J- 1, JOIM  ) 

8185  FORMAT!  •  NO.  ITERATIONS  10  MATCH  B.C.  • , 5X,6( 13, l IX I  I 
IF (N  .EQ.  27)  WR  ITE ( 3. 158  )  ( Y ( 3, J  ,LLL+ 1 , 1 ) , J- 1 , JO  I M ) 

158  FORMAT!  •  ZMAX  TOO  SMALL)  0VD7(J)  AT  ZMAX-*,  6D14.5) 

WRITE !3« 144) 

144  FORMAT!/  •  Z  L  •  ,  T25‘,  *F0*  ,  T43 ,  *G0*  ,  T61,*F2K*. 

>  T79, • F2C* ,  T97, ' GZ*  ) 

JM1-LMAX/4 
CC  861  L -2, LMAX 

C  VELOCITY  OR  VEL  IS  ACTUALLY  THE  FIRST  DERIVATIVE  WRT  ETA  OF  THE 

C  STREAM  FUNCTION  CR  Y(2,J,L,I>.  THE  2ND  DERIVATIVE  IS  CAMEO  OVDZ 

C  CP  CVZ  (WHEN  EVALUATED  AT  THE  MALL) 

IF ( (L/2)*?.NE.L  .AND.  L.GT.10  .AND.  L.LT.LMAX-2)  GO  TO  861 
WPI TE.(3 •  142)  ZID.L,  ( Y ( 2, J, L,  1 ) , J-l, JO IM ) 
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IF  I L  .GT.  10  •  AND.  L  .LT.  LMI'4-2  .AND.  L  .NE.  ( L/JMi  )*JM1)G0TG  861 
WRITE (3.  143)  (Yl 3,J,L, 1 1, J«1,JDIM) 

861  CONTINUE 

WRITE  (3, 161)  IY<  1,J,LMAX,1),J-1,JDIM) 

161  FORMAT (  •  STREAM  FUNCTION  •  ,6018.9  ) 

WR ITE  O,  147  )  (VINF(J)fJ-lfJDIM) 

147  FORMAT C •  VELOCITY  AT  ZMAX*  ,6018.9) 

142  FORMAT!  F8.4,I4,*  VEL  •,  6018.9  ) 

143  FORMAT!  13X,'CV0Z  'r6018.9) 

C  EMC  OF  SECTION  6 

C  BEGIN  SECTION  7 

C  CHECK  OF  X  DERIVATIVES  AF 

C  THIS  SECTION  MAY  8E  REMOVED  IF  DESIRED 
IFIK.IT.  7)  GO  TO  7139 
CK*CX  IK ) 

CP*DX IK-1) 

L-LMAXU-3 
CC  7130  J*1 , JO  IM 

A  (3, J,5)*-0K*Y!2,J,10,3)/( <  OMCP  )  *DP  !♦  I DK-DP  )*Y!  2, J,10, 2)/(CK*0P) 

5  40P*Y! 2 , J, 1C,1)/(I0K+CP)*DK) 

A<3,J,5)«A!3tJ,5)*Xl<K-l> 

7138  CONTINUE 

C  THIS  IS  THE  VALUE  OF  X  I* i CER IVAT I VE  OF  Y!2,J.m.2)  WRT  XI)  USEO  IN 
C  CALCULATIONS  AT  K-l 

WRITE  0,7140  )  IXD2IJ)  .J-l.JCIM) 

THIS  IS  THE  VALUE  OF  X I* I CER IVAT I IVE  OF  YI2,JflC,2)  WRT  XI  )  AT 
X I*X 1 1 K- 1 )  FOUND  FROM  VALUES  AT  K,K-l,CK-2.  THE  DIFFERENCE  IN 
THESE  TWO  IS  A  MEASURE  OF  THE  ERROR.  REDUCTION  OF  THE  XI  SPACING 
WILL  REDUCE  ERROR  BUT  ALSO  SLOW  CONVERGENCE. 

WRITE  0,7140)  !A(3tJ,5),J*l,JCIM) 

7140  FORMAT!  •  XI  DERIVATIVES  •  ,6018.9) 

7139  CC  7136  J-l.JDIM 

7136  XC2IJ)  »A(2,J,10)+S(1)*Y(2,J,10,1) 

THIS  SECTION  MAY  BE  REMOVED  IF  CESIREO 
END  CHECK  OF  X  DERIVATIVES  AFTER  1428 

END  OF  SECTION  7 
BEG  IN  SECTION  8 

DISPLACEMENT  THICKNESS, SHAPE  FACTOR  t  SKEW  ANGLE  AFTER  143 

THIS  SECTION  MAY  BE  REMOVED  IF  CESIREO 

IF  IK  .LT.  8  .OR.  JDIM  .LT.  9  )  GO  TO  8C9C 

CO  8040  IYP-1,4 

YP» 1.300* IYP-.25C0* ( IYP/4 ) )*  AR 

XP*XI IK)/I l .C0-RK2/YP**2 )*X I  INF 

E!l)»lXP-XlK-l))*l  XP-X IK-2 ) )/!  IX!X)-X!K-l) l«(XIK)  -XIK-2U  ) 

E ! 2 )*! XP-XIK  )  )*|XP-XlK-2) )/!  IX |K-l |-X IK)  )*!XIK-1 J-XIK-2 ) 5  ) 

E !3 I* IXP-X I K  I  )*!XP-XIK-1) )/!  (X(K-2)-X!K)  )*(XlK-2)-XIK-l) )  ) 

PCCP*0.00 

UTILP-O.CO 

VCELP-O.CO 

CVAR»UAO*YP*YP 

DC  8020  I«l,3 

PCCP“PCCP«E 1 1 )*PCCIK-I*1 ) 

UTILP-UTILP4E! 1 1 *UT IL IK- 1 ♦ 1 ) 

0O2C  V0ELP-V0ELP4E 1 1 ) *YOEl ! K- !♦ 1 ) 

VCELS*VCELT  A*VCEL2/YP**2 
C  RK2  IS  USEO  IN  THIS  EON 

TKI3)-Y(l,l,LLL,l)*IRK2*Yll,3,LLL,l)*YU,4,LLL,l))/UVAR 
TKI4I*YI1*2,ILL»1)*Y|1,5»LLL»1 )/! YP*YP ) 

TKII)*ZIILL)-TK!3) 

TKI21*ZILLL)-TK!4»/V0ELP 

UP(2I*0.C0 

VPI21-0.C0 
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CC  8030  1-3. ILL 
C  RK2  IS  USEO  IN  THIS  ECN 

UPIL)-(V(2»l»L»l)4(RK2*Y(2»3»L»l)4V(2*4»L»l) )/DVAR)**2 
VP(l)-|YI2,2,L,l)4YC2,5,L,l J/IYP4YPI  )**2 

8030  VPIU-VPILI/VDELS 
CC  8031  L-4.LLL, 2 

TKI3|«TK<3)-CZ<U*UlP(L-2)  ,'4.C0*UP(L-1)4UP(L  )  )/3.C0 
TM4)-TK(4|-C2(LI*(VP(L-2M<..C0*VP(L-n*VP(L  » J/3.CC 
LST-L 

IF(CZIL*2 1  .NE.  ami  GO  TO  8033 

8031  CONTINUE 

8033  DC  8032  L-LST.LLL 

TK(3I*TK  m-CZIDMUPIL  MUP<l-l)>*.5DC 

8032  TK(4)*TK(4)-CZ(L  )*(VPIL  MVP < l- 1 !  I*. 5DC 
DVAR-DSCRTIDABSI (XP-XI INF ) / I YP*UT ILP ))) 

CC  8016  1-1.4 

8016  TK(M-TKU)*CVAR 
TK  I  3J-TK  1 1 1/TM3  I 
TK(4)»TM2)*VCELP/TM4) 

C  PK2  IS  USED  IN  THIS  EGN 

CVAR-VPAUTILP*  (YI1*  1.2.  1  1 4 (RK2*V( 3. 3, 2. 1  )«Y(  3 .4 ,2  ,  111 /<  LAO*  YP*YP) ) 
C  /(Y (3, 2,2,114V <3,  5,  2,1  )/(YP*YH)) 

DVAR-l.DO/DVAR 

BET  A-OATAMOVAR I  *57.295  7800 

hRITE(3,00l5) 

8015  FCRHAT(/8X,'X*,8X,*  X  DISPLACEMENT  •,*  V  I!  I SPL ACE  Ml  NT  *, 
i*  X  SHAPE  FACTOR  •*•  V  SHAPE  FAC10R  • ,  •  SKEW  ANGLE 
2*  ASPECT  RATIO  •  SPAN/CH0RI1  •  /  I9X,»  THICKNESS 

3*  THICKNESS  T86.MN  OEGHELS*  ) 

HR  I TE I  3. 8014 )  XP, I TK 1 1  I ,  1*1 , 4  ) . 8E 1 A, AR , YP 
8014  FORMAT 15C17.I0,2D16.9,C15.R) 

804C  CONTINUE 

THIS  SECTION  HAY  BE  RfMUVEC  IF  DESIRED 
ENC  DISPLACEMENT  TH ICKNESS. SHAPE  FACTOR  G  SKEW  ANGLE  ATTER  143 
ENC  CF  SECTION  8 
IFIJCIM  .IT .  4  I  GC  TO  1428 
RK2A--Y (3.4.2.11/  V(3t3,2,ll 

VRITEI3. 146)  RK2 A 

146  FORMAT!  •  -F2C«/F2K"-« , C2C  .9  1 
1428  CONTINUE 

BEGIN  SECTION  9 

VELOCITY  PROFILES  AT  SELECTEC  CHOKDWISE  POSITIONS 
THIS  SECTION  HAY  BE  REMCVEC  IF  CESIREC 
IF ( Y (3, 1 *2* 1 1  .LT. .08881  PCNS-PCCIKl  -1.1 
CC  8080  IXP-1,4 

GC  TO  (8:71,8072*8072,8073)  ,IXP 

8071  PCCP-60.C0 
GC  TC  8074 

8072  PCCP-10.C0420.CQAIIXP-2) 

CC  TC  8074 

8073  PCCP-PCNS 

8074  IFCPCCP  .GT.  PCCIKl  .CR.  PCCP  .LT.  PCCIK-2))  GC  TO  PC 8L 

Ell  I-IPCCP-PCC  (K-l )  )*(  PCCM-PCC  (K-2) ) / (I PCC I K )-PCC<  K- 1  I  M(PCCIK)- 
IPCCIK-2) I ) 

E  (2  )*(PCCP-PCC  IK  1  )*  (PCCP-PCC  (K-2 ) )/ 1 1  PCC  I  K-l  I-PCCIK  )  IM'PCr.l  K- 1  )- 
2  PCCIK-2))) 

E 1 3  )- 1 PCCP-PCC IK )  I* (PCCP-PCC  IK- 1 » )/I I PCC (K-2)-PCC(KI  )*(  PCC I K-2 )- 
3PCCIK-1))) 

XP-E(ll*X|K)4E!?)*XIK-IMEl3)*X(K-2) 

C  IF  XP  BE  FOUNO  FOR  EACH  PCCP*  ABOVE  XPGE  NEEDED  ONLY  FOR  PCNS 
CC  8084  IYP-1,4 

YP-  1 .300* IYP-.25C0*! I VP/4  1 1* AR 
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IF! ILIM! IXP,  IYP)  .GT.  0)  CO  TO  6084 
C  RK2  IS  USED  IN  THIS  EON 

XIP«!  XP-XI INF )* ( 1 «00-RK2/YP**2  I 
IF  I  XIIXI  .IT.  XIP  1  GO  TO  8064 
IIIMIIXF.’YPI-I.DO 

E!l!-!XIP-XHX-ni*5XIP-XHK-211/l!XI(IO-XI!K-m*!XI!KI-XIIK-2))| 
t<2!-!XIP-XIIK)l*IXIP-XI!K-2}|/!(XItK-l>-XI!K>l*!XI!X-li-XI!K-2))l 
EOIa(XIP-XI(KI)4(XIP-XI(K-l))/(fXI(K>2l-XI(KII*(XI  (K-2  I -XI  (X-l)  ) ) 
0VAR«YP*YP* (Ell) ♦UTIL (X l*Ei21*UTILlK-ll*-E!3)*UTIL!K-2)  I 
00  8083/L-2.LHAX 

upai-o.cr 

VPU1-0.00 
00  8083  1-1.3 

C  RK2  IS  USED  IN  THIS  EON 

UP ( 1 1-UPiL  l+E ! 1 1*1 Y! 2. l.L. I )  +  !RK?*Y! 2.3.1, 1 l+Y( 2.4.L .1 ) 1/DVAR I 

8083  VP!LI-VPILnEm*<Y!2.2,L.I)+V!2,5,L,I)/  IYP*7P1> 

NRITE13, 60911  PCCP.YP.XP.XIP 

8091  FORMAT!//'  *CH<5rC-',F10.6,5X,'  SPAN/CHORD-SF  12.8, 5X*X-*,F  15.1  C.5X, 
F  »X,I-*.F15.10  I 

WRITE! 3.6093  I  (UP!L  1.L-2.LMAX  I 
8093  FORMAT!*  CHORDNISE  VELOCITIES'  /!  lX.10F8.4n 
WRITEI3.B092  I  (VP!U.L-2.LMAX  ) 

8092  FORMAT!/*  SPANUISE  VELOCITIES*  /!  1X.10F8.4H 

8084  CONTINUE 
8080  CONTINUE 

THIS  SECTION  MAY  BE  REMOVED  IF  OESIRED 
ENO  VELOCITY  PROFILES  AT  SELECTED  CHORDWISE  POSITIONS 
END  OF  SECTION  9 
8090  CONTINUE 

WRITEI3.8721  K 

872  FORMAT!*  ENC  OF  K-*,I5  ///) 

UPDATE  MATRIX  FOR  NEW  VALUE  CFK 
DO  1429  IT-1,3 
DO  1429  L-l.LMAXU 
DO  1429  J-l.JOIM 
CL  1429  M-1,3 

1429  V1M,J,L.5-IT1«YIN,J,L,4-IT1 
30  CONTINUE 
END  K  LOOP  IN  XI 

CALL  EXIT 
END 

REAL  FUNCTION  0S0X*8 (DUMMY. CE I 
IMPLICIT  REAL*8  1A-H.0-Z1 

COMMON/ BIJ/ EPS, £GN,B1,Q2,B3,  E4,B5,B6,B7,68,L9,B1C 
IFISGN)  85.85,75 

85  IF!  DUMMY  .GT.  ft. 001  SGN-l.OC 
75  S-DE-1.00 

CMS2-0E* ! l.OO-S I 

IF!0ABSI0MS2)  .LT.  1.0-501  MRITEI3.401)  DE.SGN.0MS2, DUMMY 

IF (DABS ( CMS2 1  .LT.  l.C-501  OMS2-1.D-SO 

BA-11. D0-EPSI**2 

BB-1.00-EPS*EPS 

BC-1.D04EPS 

B1«1.00aEPS*EPS-2.00*EPS*S 
B2-BC*!1.D0*BA*B6/ 161*61 11/4.00 

B3-SGN*BC*1-S*ll.00-BA/81 J-OMS2*2.DO*EPS*BA/61**21/I4.I)0* 

3  DSCRT10MS21 1 

IF!  DA8S!CUMMY*SGN-13.C01  .GT.  l.C-41  GO  TO  18 
BD-EPS*BC*8A/ (2«GO*61*CSCRT 10MS2  1 1 
B4-BC*BA*E8*EPS/B1**3 
BE-B1*B1 
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85-SGN*BC4<-l.CO/(0A*CE)42.tC*S/Bl-4.CO*EPS*OMS2/eE) 

B6«6.C0*EPS*e*/ril 

0F-l,DO/iCE'*C£*BA)42.nO/Bl4l2.  *EPS**/BE-16.0C*EPS4EPS*CMS2/B1*'*3 
87*E5*(2.D0*E'F  S/Bl4S/0MS2)4SGN4fiD*BF 
401  FORMAT  (  •  P2,P3,GE,SGN,GMS2,  DUMMY  ',6016.7  ) 

lfl  P10-DS0RTJB2*B24B34B3»*SGH 

C  ‘  IF (DAUSICIT  IV 1.1 T.l.D-6>WRITt(3.40l»B2,B3,0E,SGN,0MS2,DUMMY 

CSDX-l.OO/BIO 
RfUJRN 
ENO 

SUBROUTINE  RK3(FUN,»  I, X  I , Y I, XF, YF ,ANSX, ANSY , I ER  I 
C  RK3  (S  TliF  OCUeiE  PRECISION  VERSION  OF  THE  PROGRAM  RKl  DOCUMENTED 

C  I A  THE  IPM  r-ANUAL  H20-02C5-3  "SYSTEM/360  SCIENTIFIC  SUBROUTINE 

C  PACKAGE-PROGRAMMERS  MANUAL"  PAGE  331 


CCUPLF  PRECISION  HI ,X I , Y  I , XF , YF , ANSX, ANSY.H , XN , YN.HNEK, XN1 , YN1 , 

RK1 

580 

L  XX,YY,XNEW«YNEW, 

H2,T1,T2,T3,T4,FUN 

RK1 

590 

IER  *  0 

RK1 

705 

IF ( XF-X I )  11.11, 1? 

RK1 

710 

11 

ANSXuXI 

RK1 

720 

ANSV-YI 

RK1 

730 

RETURN 

RK1 

740 

c 

TEST  INTERVAL  VALUE 

RK1 

760 

12 

H-H  I 

RK1 

7B0 

IF (HI  1  16,14,29 

RK1 

790 

14 

IER-1 

RKl 

800 

ANSX-Xt 

PK1 

BIO 

ANSY-0.0 

RKl 

820 

RETURN 

RKl 

830 

16 

H— HI 

RKl 

840 

c 

SET  XN- INITIAL  X.VN-INITIAL  Y 

RKl 

860 

20 

XN-Xl 

RKl 

880 

YN-YI 

RKl 

890 

c 

INTEGRATE  ONE  TIME  STEP 

RKl 

910 

HNCw-M 

RKl 

930 

JUMP* l 

RKl 

940 

GC  TO  170 

RKl 

950 

25 

XN1-XX 

RKl 

960 

YN l*YY 

RKl 

970 

c 

COMPARE  XN1  (*X(N41I1  TO  X  FINAL. 

AND  BRANCH  ACCfRCINGLY 

RKl 

990 

IF (XN1-XF 150, 30,40 

RKl 

1010 

c 

XN1-XF.  RETURN  (XF,YM)  AS  ANSWER 

RKl 

1040 

30 

ANSX-XF 

RKl 

1050 

ANSV-YNl 

RKl 

1060 

GO  10  160 

RKl 

1070 

c 

XNl  GREATER  THAN  XT,  SET  NEW  STEP 

SIZE  AND  INTEGRATE  ONE  STEP 

RKl 

1090 

c 

RETURN  RESULTS  OF  INTEGRATION  AS 

ANSWER 

RKl 

1100 

40 

HNEW-XF-XN 

RKl 

1120 

JUMP-? 

RKl 

1130 

GC  TO  17C 

RKl 

1140 

45 

ANSX-XX 

RKl 

1150 

AKSY-YY 

RKl 

1160 

GC  TO  IfcC 

RKl 

1170 

c 

XK1  LESS  THAN  X  FINAL,  CHECK  IF  ( YN, VN1 1  SPAN  Y  FINAL 

RKl 

1190 

SC 

IF ( (VNi-YF 1* IVF-VN 1 160,70, 11C 

RKl 

1220 

c 

YN1  AND  YN  UC  NOT  SPAN  YF,  SET  (XN,YN>  AS  (XN1,YM1  AND  REPEAT 

RKl 

1240 

60 

YN-YN1 

RKl 

1260 

XN-XN1 

RKl 

1270 

GC  TO  170 

RKl 

1280 

c 

EITHER  YN  OR  YN1  -YF.  CHECK  WHICH 

AND  SET  PROPER  IX, Y1  AS  ANSWER 

RKl 

1300 

70 

IF( YN1-YF 180,100,80 

RKl 

1320 

80 

ANSY-YN 

RKl 

1330 

ANSX-XN 

RKl 

1340 
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GC  TO  160 
100  ANSY-YN1 
ANSX-XN1 

GC  TO  160 

C  YN  AND  YM  SPAN  vr.  TRY  TO  FIND  X  VALUE  ASSOCIATED  KITH  YF 
110  DC  140  1-1,10 

INI ERPOt ATE  TO  FIND  NEW  TIME  STEP  AND  INTEGRATE  ONE  STEP 
TRY  TEN  INTERPOLATIONS  AT  MOST 
KNEW- ( ( *  F-YN  )/<YNl-YN) )*<XN1-XN| 

JllMP-3 
GC  TO  170 
11S  XNEW-XX 
YWEW-YY 

C  COMPARE  COMPUTED  Y  VALUE  WITH  YF  AND  BRANCH 
IF  ( YNEW-YF) 120,150,  130 
C  ADVANCE,  YF  IS  BETWEEN  YNEW  AND  TNI 
120  YN-VNEW 
XN-XNEW 
GC  TO  140 

C  ADVANCE,  YF  IS  BETWEEN  YN  ANC  YNEW 

130  YN1-YNEW 
XN1-XNEW 
140  CONTINUE 

C  RETURN  (XNFW.YF)  AS  ANSWER 

150  AN SX-XNEW 
ANSY-YF 
160  RETURN 
17C  H2-HNEU/2.0 

T1«HNEW*FUN|XN,YN1 

T2-HNFW*FUN(XN4H2,YN+T 1/2.0) 

T3-HNEWAFUNIXN4U2.YN4T2/2.0) 

T4^HNEW*FUN(XN4KNEW,YN4T3) 

YY-YN4lTl42.0tT242.0*T34T4)/6.0 

XX-XN4HNEW 

GC  TO  (25,45,115),  JUMP 
END 


RK1  1390 
RK1  1360 
RMl  1370 
Ml  13B0 
RBI  1400 
Ml  1420 
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RK1  1470 
RK1  1480 
RK1  1490 
RMl  1500 
FM1  1510 
RMl  1530 
RK1  1550 
RMl  1570 
RK1  1590 
RMl  1600 
RK1  1610 
RK1  1630 
RK1  1650 
RKl  1660 
RK1  1670 
RK!  1690 
RMl  1710 
RMl  1720 
RMl  1(30 
RMl  1750 
RMl  1760 
RMl  1770 
RMl  1780 
HM1  I v90 
RMl  1800 
R-l  1810 
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IMPLICIT  REAL*8  ( A— H» 0— 2 ) 

A  FORTRAN  PROGRAP  FOR  A  RC.T0R  BLADE  IN  FORWARD  FLIGHT  WITH  LIFt 
THE  PROGRAP  OCCUPIES  LESS  THAN  Z0C.000  BVIES  IN  FORTRAN  TV-G, 

LEVEL  1.  HOD  3 

COHHON/B I J/EPS, SGN, B1 , B2, B3 , 64 , B5 ,B6 , B7, 88*69*610 
DIMENSION  X(8a),CX(80),XI(80),DXI(80>,BP(4),Y(3,12,75,4), 

1  A(2,12,75>,  S(4),  ST  ( A  I ,  ERROR  1 12  I , BC I  1 2 ) , BCL ( 12 ) ,1 RAXR ( 1 2 ) , 

2  CNEGA(12),ITERM12>.  Z  (  75  ),  CZ 1 75  )  ,DNI  75  )  ,EN  (  75  )  , 

3  SDZ ( 75 ) »EY ( 75 ) , DUHV I75>,DT(75I»  EYK ( 450 ) , EBC ( 12 J ,RHSF ( 75 ) 

4  .  XDC (12I,XCP(12),PCE(12),RKJ(12), I KERR ( 80 ) 

OIHENSION  SHV (20),PSIV(2C),VAV(2C),ARV(2C) * PCCV (2C ) ,SHTC20) , 

D  PS IT( 20), VAT (20), ART (20,  RHSI 12,75) ,DT2( 75  I ,PCCI 8D ) ,UAPK ( 80 1 , 

C  UCPK ( 80 ) , E ( 3 ) 

V,  I  LI H (20, 4) ,RNUK(80),TK(6),UP(75),VP(75> 

THIS  OIHENSION  STHT  IS  FOR :K<«80, H<=3, J<= 1 2 , L<=75 , I <=4 , NGTCNG VEL<61 
EXTERNAL  DSDX 

SVHHETRICtL IFT ING  ROTOR  UNDERGOING  FORWARD  FLIGHT 
JCIR=5 

JDIH  IS  THE  NO.  OF  EQUATIONS  TO  BE  SOLVEO!  IT  IS  THE  HAXIHUH 
VALUE  OF  J 

IF  J0IR«5  THE  PGH  ASSURES  THAT  KIC  IS  TO  BE  FCLND 
IF  JDIM=9  THE  PGH  ASSURES  THAT  K2CR ,K2C,K21 ,CK22  ARE  TO  BE  FCUNC 
AND  THE  VALUE  OF  KIC  (RK1C)  THAT  WAS  READ  IN  IS  CORREC T 
IF  JO IM>9  THE  PGH  ASSURES  THAT  K 1C ,K20R , K2C ,K2 \  E  K22  ARE  KNOWN 
ANO  HAVE  BEEN  READ  IN  CORRECTLV 

SECTION  l:  INPUT  VALUES  NEEDED  FCR  THE  POTENTIAL  FLOW  SOLUTION 
RE AO ( 1 , XXXX I  CENOTES  THE  CATA  CARDS  AT  THE  END  OF  THE  DECK; 

WR I TE (2 1 XXXX  )  CENOTES  THE  CARO  PUNCH;  WP I TE ( 3 , XXXX I  DENOTES  A 
133  SPACE/LINE  PRINTER 
PARAHETERS  FCR  POTENTIAL  FLOW 
EPSCEPSILON)  OF  .092  GIVES  AN  11. 9t  THICK  A  RFC IL 
EPS=9.2C-2 

C  LESS  THAN  160  PAGES  ARE  NCRHALLV  PRINTED. 

C  ON  IBH  HCOEL  360/75  A  CPU  TIRE  OF  9  HINUTES  I*  ALWAYS  ACECOATE. 

C  IF  NEITHER  K10  NCR  THE  POSITION  OF  THE  STAGNAT ,C\  POINT  (XIINFI  IS 

C  KNOWN,  SET  JCIH* 5  AND  PUT  XIINF»14.  ON  THE  FIRST  DATA  CARD. 

C  ONCE  THE  VALUE  OF  K10  HAS  BEEN  FOUND  (  8/  EXTRAPCt  UNG 

C  F10C-/F1K«3WALL  TO  SEPARATION  VALUE  OF  XI,  XIS),'  N  JDI“  SHOULD 
C  eE  SET  TO  9  AND  THE  PRCGRAH  RERUN.  VALUES  OF  K2CR  '2C.K21,  AND 

C  K22  ARE  FCUNC  BY  EXTRAPOLATING  THE  VALUES  OF  -OVC. /r2K*  TO  XIS. 

C  ONCE  THE  CORRECT  VALUES  OF  THE  K2«S  HAVE  BEEN  ENTEH  C  CN  THE 

C  SECOND  CATA  CARD,  SET  JC1R  TO  12  ANO  RERUN  THE  PROG!'  AH .  THE 

C  SUCCEEDING  CATA  CARCS  WILL  BE  USED  TO  SPECIFY  THE  NUN  "  OF 

C  VELOCITY  PROFILES  DISPLACEMENT  THICKNESSES, AND  RC.RrNTUN 

C  THICKNESS  DESIRED. 

C  SURRARY 

C  1ST  DATA  CARC;F0RMAT(F10.6,F1C.7,F20.16,3F1G.7I  XC« ALPHu . XI  INF , 

C  XIS  «RK10 

C  SUCCEEDING  DATA  CARDS  ARE  NOT  READ  IF  JDIR<1C 

C  2ND  DATA  CARC:FCRMAT I8F 10.5 1  RK20R,RK2C,RK21,RK22 

C  3RD  DATA  CARC: FORMAT! 1 5 1  NGVEL  (  NO.  VEL.  PROFILES  TO  PE  FCUNCI 
C  NEXT  NGVEL  C ARCS; FORM AT  I 8F 10.5  I  SH, PSI »VA,AR ,PCC 

C  (NGVEL44ITH  CARD: FORMAT (15)  NGT  (NO.  THICKNESSES  TO  BE  FCUNC) 

C  NEXT  NGT  CARCS:  FORMAT ( eFIO. 5 )  SH.PSI.VA.AR 

C  XC  IS  THE  POSITION  OF  THE  AXIS  OF  ROTATION  ALONG  THF  CHCRD. 

C  ALPHB  IS  THE  BLADE  ANGLE  OF  ATTACK  IN  DEGREES 

C  XI INF  IS  THE  POSITION  OF  THE  STAGNATION  POINT  AT  LARGE  SPAN.  I*- 

C  IT  IS  UNKOWN, SET  IT  EQUAL  TO  14.  ANO  THE  PROGRAM  WILL  CALCULATE  IT 
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C  RKIO  IS  THE  CONSTANT  KIO  IN  THE  EQUATION  FOR  Q.  IF  IT  IS  UNKNOWN* 

C  SET  JOIN*!  ANO  FUT  SOME  VALUE*  SAY  10. »  ON  THE  OATA  CARD. 

C  XI S  IS  THE  VALUE  OF  XIS  AT  SEPARATION.  IT  IS  FOUNO  BY  EXTRAPOLATE 

C  PC*  lVI3fltL.il  OR  DVOZ  AT  Z-0  FOR  J-l) 

READI1, M2)  XO, ALPHBt  XI  INF, XIS, RKIO 
412  FORMAT IF 10.6, F 10.7 , F20. 16, 3F 10 .7  I 
AI-ALPHi/37. 29578 
TAB-OTANIABI 

SAI*0S|N(AI9  i 

CAB*OC0S(  ABJ 

UNITE (3,400)  XO,ALPHB,XUNF,XIS,RK10,F>!» 

400  FORMAT!/*  INPUT  VALUES  •/•  AXIS  OF  AC  ATION  IS  AT*,F7.4,  •CHCRO*/ 

1  •  ANCLE- OF  ATTACK  IS* , F9.6, *  DEGREES' t  *  STAGNATION  POINT  AT  IRFINI 
2TE  SPAN  IS*, 020. 14/  •  ESTIMATED  SEPARATION  POINT  IS*,F12.7/ 

3  •  RK10»* »F10.6/'  PARAMETER  EPS  FOR  MAX.  THICKNESS  OF  AIRFOIL*', 

4  F12.7/  ) 

SECTION  2t  INPUT  NEEOEO  IN  SECTIONS  13  AND  14 
IFIJHIM  .LT.  10)  CO  TO  4412 
R£*L U*4404 1  RK20R*RK20*RK21 *RK22 
NRIT  ; (3*4039 1  RK20R,RK20,RK21*RK22 
4039  FORMAT!//*  IN  ORDER  TO  CALCULATE  .VELOCITIES!  RK2CR-* ,F9.4,5X, 

F  •RK20-**F9.4,SX,*RK21-*,F9.4*5X,*RK22-'*F9.4//I 
REA0(1«7036)  N6VEL 
7036  FORMAT! 13) 

KRI TE 13,4400)  NGVEL 

4400  FORMAT!  13**  NO.  CONOS.  TO  CALCULATE  VELOCITY*  > 

IF (NGVEL)  4401,4401,4402 

4402  MRITE(3,4403 ) 

4403  FORMAT!/*  VELOCITY  PROFILES  HILL  BE  FOUNO  FORi*  / 

1*  SPEED  RATIO  AZIMUTH  ANCLE  INOUCED  VEL  ASPECT  RATIO 
2BCHCR0* ) 

CO  4403  NG-l.NCVEL 
CO  4760  IYP-1,4 
4760  ILIM(NC*IYPI-0 

4404  F0RMAT1BF1O.3) 

REAO(i»4404l  SHV(NC),PSlV(NC)f VAV(NG),ARV(NGI,PCCV(NG) 

C  SH  IS  A  SPEED  CF  FORMARO  FLIGHT  (LIKE  ALL  VELOCITIES*  IT  IS 

C  NON-DIMENSIONAL! 1E0  MRT  CHORC  TIMES  ROTATIONAL  VELOCITY) 

C  PSI  IS  THE  AZ1MU7HAL  ANGLE  IN  DECREES 

C  VA  IS  THE  COMNFLOW  , 

C  AR  IS  THE  ASPECT  RATIO  OF  THE  BLADE.  POtNTS  KILL  BE  TAKEN  AT  309, 

C  60*, BOB  ANO  95*  OF  SPAN. 

C  PCC  IS  THE  PER  CENT  CHORD  , 

C  FOR  EACH  SET  OF  CONDITIONS  (SH,PSI,VA,AR,6PCCI  BOTH  THE  CHORDMISE 

C  ANO  SPANHISE  VELOCITY  PROFILES  MILL  BE  CALCULATED. 

4403  MRITE(3,4406t  SHV(Nt) ,PS IV  INC ), VAVINGI , ARV( NG ) ,PCCV(NC I 
4406  F0RMAT13F13.9I 

4401  REAO(1,7036)  NCT 
NRITE(3,4410 I  NCT 

4410  FORMAT  (IS,* STATIONS  TO  CALCULATE  THICKNESSES  •) 

IF (NCT  )  4412,4412,4411 
4411 .MRITEI3,4413) 

4413  FORMAT!/*  THICKNESSES  MILL  BE  FOUND  FORt*/  •  SPEED  RATIO  *, 

1*-  AZIMUTH  ANCLE  INOUCEC  VEL  ASPECT  RATIO  •) 

CO  4414  NC*1,NCT 

REACH, 44041  SNT(NCI,P$ITING),VAT(NCI,ART(NG) 

C  FOR  EACH  SET  OF  CONDITIONS  !SH,f»S t»VA, AR)  THE  B.L.  THICKNESSES 

C  KILL  BE  CALCULATED  FOR  K>B 

4414  *mE!3»4<»06)$MT  (NO, PSIT!N6), VAT  INC), ANTING ) 

441/  CONTINUE 

C 
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C  SECTION  3»  SOLUTION  FOR  THE  STAGNATION  POINT 
WRITE(3,?04B)  AB, TAB, CAB, SAB 

7048  FORMAT (/•  AB-'  ,020.13, 'RADIANS  I  TAN  I AB  )»• ,020. 12, • I  COS(AB)-', 

8  020. 13, 'I  SIN(AB)*', 020. 13/1 
SGN-1.00 

CEI«2.DO*SAB*SAB 

C  OEI  IS  THE  VALUE  OF  DELTA  AT  THE  STAGNATION  POINT.  DELTA  IS  1-SIGMA. 

SI-OEI-l.CO 
HST-.3D-3 

CET-. 1212127715150-6 
*1 INT-. 414932993830-4 
H-.5D-44HST 

C  H  IS  THE  SPACING  IN  RK3  SUBROUTINE 

CSTRT-l.C-20 

XSTRT-EPS*D$CRT(2.D0*0STRT1/I1.C04EPS) 

C  .  SINCE  DSOX  BLOWS  UP  AT ( CELTA-O, X-C ) !  RK3  BEGINS  INTEGRATING  AT 
C  DELTA-DSTRT,X-X$TRT 

OEP-l.O— 5*0E I 

C  RK3  INTEGRATES  FIRST  FROM  OSTRT  TO  DEP.  THEN  H  IS  INCREASED  AND 

C  INTEGRATION  GOES  FROM  OEP  TO  CEI.  IF  THERE  IS  AN  A 1N0RMAL 

C  CCNOITIGN  IN  RK3  HER  .NE.  0)  SEE  THE  WRITE  UP  ON  THE  RK1  SUB- 

C  ROUTINE  IN  THE  IBM  360  SCIENTIFIC  SUBROUTINE  PACKAGE. 

•C  SGN— 1. CO  DENOTES  THE  UNGERSIDE  OF  THE  AIRFOIL!  *1  IS  UPPER  SIDE 

J— 0 

IF (XI  INF  .GT.  13.001  J-2C70 
IF  I J  .NF.  2070)  GO  TO  397 

CALL  RK3(OSOX,H, XSTRT, OSTRT, 3.00,0EP*XIINT,DEt,IER) 

MRITE(3,43S)  XI  INT,OET, XSTRT, DSTRT,IER,H 
435  FORMAT! /'  RK3  FINOS  X-',C19.12,2X,'AT  DELTA*'  ,015. 12/5X, 'BY  INTEGR 
EATING  FROM  X-',£19.t2,2X,'ANC  OELTA-' ,019.12/'  THE  NLMBER  OF  ABNCR 
2PAL  CONDITIONS  ENCOUNTERED  BY  RK3  IS' , I 3,8X, • THE  SPACING  IN  X  IS', 

3  C15.6  /> 

H-.01D04MST 

CALL  RR3(OSOX,H,XIINT,OET,3.CO,CEI,XI INFtDV, IER) 

IF  I  TAB  .GT.  O.CO)  SGN— 1. CO 
XIINF-XIINF*SGN 

C  XIINF  (ALSO  CALLED  CHIO)  IS  THE  VALUE  OF  X  AT  THE  STAGNATION 

C  POINT  AT  Y- INFINITY.  NORMALLY  IT  IS  A  NEGATIVE  NUMBER 
VRI TEI3,435)  XIINF«0V,X1INT,CEP,IER,H 
397  IFITAB  .GT.  O.CO)  SGN— 1. CO 
WRITE(3,401 I  XIINF, CEI 

•*01  FORMAT (/•  XIINF-', 022.15,'  IS  THfe  VALUE  OF  X,  ANO  0El-',D22.'4, 

F'  IS  THE  VALUE  OF  OELTA,  AT  THE  STAGNATION  POINT'/) 

IFUDIM  .EG.  5)  WRITEI2V246)  XO, ALPHB,XI  INF 
246  FORM AT (F 10 .6, F  10.7,F20.I6,30X,*EXTRASTAFF'  } 

CV-SGN*13.00 
C99-0SDX I CV, CE 1 ) 

C  CSDX  WILL  CALCULATE  XR  ANO  2R  AND  THE  ID  DERIVATIVES  NRT  DELTA  (OR 
C  S1GPA) 

811-2.00*102404403*85) 

WRITE  13*436)  61,82,83,84,65,86,87,08,69,810,811 
.436  FORMAT!  •  Ml, B2,B), 84,05/(6,87, *8,09,810,811' ,5010.10/6018.10) 
CHIO-XI INF 

CHUO— 4.004B10*CAB*SA8 

CM f 20- (Bll/B 10)  *4.00* I CA8*SAB 1**242.00*610*!  CAB**2-SAB**2 ) 

CHI  22— CHllO 

WRITE !3,434)CH10,CH< 10.CH 120, CH 122 

434  FORMAT!/  •  THE  COEFFICIENTS  IN  THE  SERIES  FOR  STAGNATION  POINT'/ 

1' .CHIO-' ,015.*,  5X* CHI 10* ',015.8, 5X, 'CHI2C-* «01S.8«5X, 'CHI22- * , 

2C15.B  /) 

C  ENG  PARAMETERS  FOR  POTENTIAL  FLOW 
C 
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C  SECTION  4S  PARAMETERS  ANC  FUNCTIONS  OF  Z  FOR  LEW'S  Me  THCD 
C  PARAMETERS  FOR  SOLUTION  ev  LEW'S  METHOD 

CflX*7.5C-T 

THE  INCREMENT  CF  XI  IS  PROPORTIONAL  TO  DELX.  FOR  REASONS  PEVCNO 
RECALL  THE  STAGNATION  POINT  (XI>C,X«-XI INF)  IS  TAKEN  AT  K-4,  WHERE 
K  IS  THE  SUBSCRIPT  FOR  XI. 

XI  (41*0.00 
XI4I-XIINF 
CI»CEI 
T-SI 

OFLTA  ( CE )  ANC  SIGMA  (T)  ARE  SET  TO  STAGNATION  POINT  VALLES. 
ERRCRR-.5C-6 
CMEGAR-1.7D0 

ERROR  AND  OMEGA  ARE  THE  PARAMETERS  THAT  H.G.  LEW  CALLS  EPSILON 
AND  OMEGA.  ERROR  AND  GME6A  ARE  PROPORTIONAL  TO  ERRORR  C  CMFGAR. 

SEE  STMT  5?fl 
LMAXU-75 

l  IS  THE  SUBSCRIPT  FOR  l  IETA){  FOR  EACH  J  ANC  K,  A  VALUE  OF  LMAX 
WILL  RE  FOUND;  L  WILL  RE  <»LMAX  AND  LMAX  WILL  BE  <»LMAXU.  SEE  THE 
DIMENSION  STMT. 

KMAX*7C 

K  WILL  RE  <*KMAX.  IF  K-KMAX  BEFORE  FO"  REACHES  .OS  CR  .04,  THLN 
EITHER  OXIIKI  MUST  HE  INCREASED  (SEE  DELX)  OR  KMAX  INCREASED  ( SEE 
DIMENSION  STMT), 

LST-55 

1TERM«450 

ITER*  IS  MAXIMUM  NO.  OF  ITERATIONS  BEFORE  LEW'S  METHOD  IS 
CECLARFC  NGN-CONVERCENI.  COMPARE  IT  TO  VALUES  OF  ITER  I  SEE 
WRITE(3»474 ) ) 

C7ST-.IDC 

CALCULATE  ZIL)  S  RELATEC  FUNCTIONS 
CC  571  L-l.LST 
CZ(L)*0/ST 

571  Z(ll«CZSTA(L-l> 

CC  577  L-LST,LMAXU 

CMISSICN  CF  THIS  CC  LOOP  ANC  SETTING  LST-LMAXL  WILL  MAKE  DZtl) 
CCNSTANT 

CZm-nZST*(7.D0A*CIIl-I)-ZUSTI*CZST)) 

IF  I  O/ILI  .GT.  . 4C0 I  CZ (L  >*.4C0 

572  mi«HL-Il4CZIL) 

WRITEI3, 14R2 )  (L  ,Z(L)«OZ(L),Lal,LMAXU) 

1482  FORMAT!/  •  l • ,6X, • 2' ,4X,»CZ» ,6X, •  L'  ,6X, »Z» ,9X, 'DZ •  ,6X, 'L» ,6X, *Z • 
i,9x,'ni',6x,'i',tx,'/!',«x,'cz',ex,'i»,6x,'z»,9x,'nz'/  ti4,?no.6, 

2,;,»I4»2PIt>.6»'l',l4,2FlC.6,'l,»l4»2FlC.6»'l'»I4*?Fl0.6)) 
IMMl-LMAXU-l 
CC  523  L»l,LMMl 

CN.EN  AND  SDZ  ARE  USED  PIGHT  AFTER  "CO  HOC"  TO  FINO  THE  SIREAM 
FUNCTION  (FO,GC, ETC) ,  THE  SECCNC  DERIVATIVE  OF  THE  STREAM  FUNCTION 
IFCSGC.ITO,  AND  THE  THIRC  DERIVATIVE  IFO"',ETC). 
CN(L)*I.CO/OZILA l)-l.OO/CZIL) 

EMI  1*1.  CO/CZILM  »♦!.  C0/C7IL ) 

57T  SCI(l)»7.C0/ICZiL)4C/IL*in 

WRIIEI3,440)  O/ST', LSI ,LMAXU,CMEGAR,ERRORR,OELX, J01M 
4.40  FORMAT!/  •  THE  ETA  SPACING  I5',F6.4,'  UP  TO  L*'»I3,»;  IT  GR ACLALLY 
l  INCRFASFS  UP  TO  Tht  MAXIMUM  OF  l-*, 1 1//  •  THE  SPEED  OF  CONVFHGfcNC 
2F  IN  ETA  FEPENCS  ON  UMFGAR>',F8.4/ 

»•  SUCCESSIVE . ITERATIONS  MUST  MATCH  VELOCITY  WITHIN  AN  ERROR  THAT*, 
4*  CEPFNCS  CN  E9RCRR*'  •C12.5//'  THE  X  SPACING  DEPENDS  CN  OCIX*', 

5  FI7.R//'  THC  NO.  OF  ECUATT0N5  IS* , 13//  •  BEGIN  SOLUTION1///  ) 

C  FNC  CALCULATE  ZIL)  ft  Rhl  AT  EC  FUNCTIONS 
C 

C  SECTION  51  STARTING  VALUES 
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C  FIX  STARTING  VALUES 

C  J-l  DENOTES  KI»rC.FC"  CR  FC"‘;J*2  IS  GC3.G0  3  •  ,  E  1C  5  J”  3  IS  GOi; 

C  J*6  IS  F2CP.  )J*7  IS  F21C;8  IS'F21C;S  IS  F22C;lC  IS  G1C;11  IS  Gil; 

c  12  is  r,i2;ir  jcim<*5  then  j-4  is  fik  anl  is  ficc  j  if  jmpm 

C  THEN  J=4  IS  HO  IFIL-F |CC«r ir*FlK  )  ANC  J*5  IS  F2K. 

CC  525  J*1,.ICIM 
PC ( J 1*0. CO 

PCIJ)  IS  THE  VALUE  Cf  THE  J'TH  VFL  IVEL  IS  Ft*  f  GPFi  *  .(if,  1  •«I:TC  ANC 
cvr;  is  i c",G'.n"»FTf.i  at  zvax  iat  uamniiniivi 
Err  iji-'j.co 

LMAXRI Jf*C 
CC  525  I  *  I » l  ►  AXIJ 
Rl SIJ,L)*0.rG 
Aii,j,t)*c.rc 
AI2,  JtD-C.CC 
CC  S25  A *1,3 
rr.  <525  1*1,4 

525  YIN, J,L,  I  l-C.UC 
CC  526  1*1,4 
STin*o.ro 

526  SIIK.CQ 

THESE  HATH  ICES  I  EHC.RHS,  A,  Y  ,  S,  ANC  S  T  »  WILL  PE  F*  E  C  F  f  I N  i  F  AS  MECEC 
KCIIIM.M 
nci3»*i.co 

PC  (2 1  ANC  CC  14  I  WILL  ?t  RLOEFIML  LATER. 

CC  527  L-itLMXU 

THIS  IS  THE  INITIAL  ESI  IRATE  FfiR  THE  VcLCCIlY  PRt.F  ILFS. 

Y  12,1,  L,l»-l.M-CCXP  1-7  IL1) 

CC  440  j*?,jci« 

546  VI2,J,L,l)*Y(2,t,L,ll 

527  CCNTINUf 
YI3,i,l,2)-l.2C3 

ENC  FIX  STARTING  VALUES 

ENC  FAOAHFTERS  FOR  30LUTICN  PY  LEW’S  METFCC 
PEGIN  K  LCCF  IN  XI 

X  IS  THt  SUESCRIPT  Flrt  XI, CXI, X  ANC  C< 

CC  30  N-5.XRAX 

CXI  IKl»rElX*Il4K/23«2A|R/33»^2*(X/4Cn 

SECT ICN  is  VALUES  CF  XI  ANC  X  AT  K»1I  CHCROWISt  SIATICN 

THESE  VALUES  FCH  THE  INCREMENTS  CF  XI  10X11  HAVE  P»C.Vtl  F.CIH 
ACCURATE  ANC  REASONABLE  FAST.  IF  CIHFERtNT  VALLES  Cl  ALTER  ARC 
NEErnn,  cxiiki  near  scpakaticn  can  re  aqjustec  sr  that  ft*  u.vcz 
FCR  J-l)  IS  <  APCUT  .05  AT  THE  FINAL  VALUE  CF  HIM. 

IFtUARSI  AIPHD  .IT.  2.C-2I  LX  It*)  -LFIXM2+N/13-K/7FO  /  21 
C  44*lW/2?l-3*lK/jni » 

C  IFIALPHC  .Gfc  .  l.CL)  CX 1 1 K  I-CEL  XM  1. 5PC«  .  5DC*  I K /?  »  I  *2*  lr./?7 1 
C  l  44*{*/31)) 

IF  I DACS  I  ALPHb-2.00)  .IT.  2.C-2)  CX  I  IK  )»f;«ELX«  1 14 .61 I H  /  1S-K  /  )IW  / 

2  571  a.FC0*!R/24-K/5A)  ♦  I  .6CC*  (X/ 35  )  +  7*U  25U-K/62  ) 

IF  I  CAPS  I  ALPHE-T.344C0  )  .IT.  2.C-2)  I'X  I  IF  )*.f  L’CACM  **  1 1  ♦  I X /?  ?- */  .>4  I 
44.5CJ4lK/37)*.5llU4K/444r./51  I 

IF  I  DAPS  I  ALPHP-4.000C0  )  .LT.  2.C-2I  CX  I  If.  1*.  RLC*r.ftX«  11*1 "  /?  7-A /.4  I 
4*.5DG*IK/37)*.5ro«XV444K/«n 

IFlCAtSIALPHI-4.4651  0)  .LT.  2.E-25  L  A  H  M  *.  nf.r«r.f  L  <«  II  ♦  IF /2  ?-r  /  ,4 ) 
4*.5C04lX/37)*.5C0*N/44  ) 

IF  I  CAES  I ALPHH-5.581L0 )  .LT.  2.C-2)  0 X  I  IN  I*. PCF *CEl X* I  I* 1 r /2 7-K tol I 
4*.5r04lK/3T)4.5rC) 

IFIX  .GF.  A I  Gt  TO  513 
IFIK-6)  502,5^1,504 
C  X*5 

502  XII5I-.5C-34CELX 
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IMAX-2 

0XI(5)-X1(S) 

GO  TO  520 

505  XI  (6I-.20C0*CELX 
C  K-6 

sm-i.oo 

S 12 1— 1.00 

CXI (K)-Xl IK  I “X  I (K-l » 

GC  TO  520 
5G4  XI C  71*0X1 (7) 

C  K-7' 

S(1)-(1.C0/0XI  (K)*l.C0/(CXl(K-l)4CXIIK)) )*XI(K) 

S  12  I— XI  (K)«(CXI(K)40Xt(K-l)  )/ ( CX I ( K ) *0X  I  ( K- 1 ) ) 

S13I-XIIK J*OXl(K J/((0Xl(K)40XI(K-l))*DXI(K-l)) 

C  XI*(DERI  VATIVE  OF  V(*,J,L,1)  WRT  XU-  SUM  OF  S(  I»*Y(M,  J,l,  I)  FOR 
C  I-I  TO  1  MAX 
I  MAX-3 

CXIIK)-XItK)-XI(K-l) 

GO  TO  512 

513  XKKI-XI  IK-1)4CXI(K) 

C  K>-8 

S  III- (1.  CO/ (XI  (K)-XI(K-?))*1.CC/(XI(K  )-XttK-2)|4l.DC/0XIIK) )*XI(K) 
S (2 )— XI (K)*(XI(Ki-XHK-3))*(XI(K)-XI(K-?))/(0XI(K)*CXl(K-ll* 

2  (XI(K-l)-XI(K-3))) 

S  ( 3 1  —XI  (K)*(XI  (K)-XI(K-3))*CXI(K)/(CXI  (K-2 )*( XI (K  )-XI(K-2))* 

3  OXKK-lll 

S(4)— XI(K)*(XI(K)-Xl(X-2))*CXI(K)/(DX||K-2)*(XI(K-l)-XI(K-3)  )• 

4  (XI(K)-XI(K-3) I  I 

C  IF  ALL  OXI  ARE  ECUALl  Sl-U/6,  S2— 3.  S3-1.5.  SA— 1/3 
I MAX-4 

51?  CONTINUE 
520  X(K)-XI(K)4XIINF 
C  K>-7 

OX ( K l-OXI (K I 

SECTION  7:  FUNCTIONS  OF  XI  FCUNC  FROM  POTENTIAL  FICW 
CALCULATIONS  FOR  POTENTIAL  FLO* 

SGN-1.00 

IF(XIK)  .LT.  O.OOI  SGN— 1. CO 
H-.100*HST 

IF ( OARS (X (K )  )  .LT.  I.C-3)  H-.C5CC*HST 
IF ( X(K >  .CT.  a. re  .ANO.  X*R)  .IT.  3.0-2)  H-.030C*HST 
IF ( X( K )  .CT.  .06C0)  M-.2CC4MST 
IF (H  .GT.  l.C-2*CXI  (K 1 1  F-1.C-2*CXI(K  ) 

CEP-OE 

IF(X(K)*X (K- 1)1  3314.1405.3315 

3314  H-1.0-2PHST 

IF ( X ( K I  .LT.  XIINT)  GO  TO  14C5 

CALL  RK3  ICSOX.H. XI IflT.CET.XCK  ). * '/•OC.XF.OE.  IER ) 

NRITEO.435)  XF.OE. XIINT, CET.IER.H 
GC  TO  32C 

3315  CALL  RK3  ICSCX.H, K IK-1  ),CEP,X(K  ),?7. DC, XF.OE,  I  EH  ) 

C  RK3  INTEGRATES  CSCX  TO  FIND  THE  VALUE  OF  SIGMAINCK  CALLER  T)  AT 
C  X (K  ) • 

32C  CONTINUE 
T-DE-l.CO 
CUMMV-13.C04SGN 
314  F54-0SDX (CUMMY ,0E ) 

MR  I TE (3, 450)  K ,X I (K ),  IER.CX  I  (K ) , CE . SGN, X (K ) 

450  FCRMAT  (  •  K-*  ,  13, 5X,  *XI  IK  )»•  ,C14. 11,  10X,  •  IER-*  ,  15  /  ».  £XI(K)««, 
1C19.11,5X,*PE-»,CI<).I»,5X,*SCN-,,F5.?,3X,*X!K  )«»,f)l4.11l 
C  P?«OSRIV.  Cf  XR  WRT  SIGMA  (CR  CELTA, WHERE  Ckl IA-USIGMA)  » 
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C  H3-DEKIV.  CF  ZR  RRT  SIGMA;  04-CER1V.  CF  P2  WRT  SIGMA;  U5-DFRIV.  CF 

C  n3  NUT  S  IGMA ;  AVI  SO  CN  UP  TC  B9-CERIV.  OF  R7  hRT  SIGMA. 

C  RIO-  DEHIV.  OF  X  WKT  SIGMA  *  SCN*C$ORT  ( B2*B2fB  3*1!  3  )  ; 

C  Pli-  OtRIV.  OF  010**?  hr  T  SICMA;  612-CEKIV.  BUS  B13*  OERIV.  B12 

C  P20  AND  021  ARE  OEFINEC  FCP.  CONVENIENCE,  AS  ARE  BC,RD,ETC. 

Ell-2.00* (H2*R44E 3* F5  ) 

01 2-2 .DO*  (B4*044L2*F64  B5*H54e  3*f 7 ) 

0 13*2. 00*  13. CO* (  04*1.64 H5*P7)*e2*e8+C3*B9) 

R2o-n*ii/Pio)/iHio*moi 

R2l-(ri2/no)/(Pin**4) 

XR-Il.i;04FPS)*(T-CPS)*(  1  .DC*  I  (  l.DC-£PS)**2)/Bl)/4.Dr 
XR-XR4 (I .DO* EPS* BPS 1/2 .OC-XO 

ZR>.?St'0*(l.r,  '.HEPS  )*CSC«  T  ITEM  l.OC-TI)*(  l.DO-I  l .DC-EPS  )**2/0 1 )*SGN 
C  XR  IS  CAPITAL  X (SUBSCR I PT  R);  ZR  IS  CAP  ZISUB  R) 

hRUEl3,479|  ni,Hl(*,PIl,P12,ri3 
479  FORM  AT  I  •  hi,  f  1 0,  l*  1 1 ,  P  1 2,  C  1 3  *,5022,14  I 
CFS-DSCRT IDE  I 
CMSS-OSlRTM  .PC-1 I 

C  PSC  IS  PHI (SUBSCRIPT  SIGMA);  PRO  IS  PHI tSUBSCRIPT  PHD); 

C  PSI  IS  THE  FIRST  DFMV.  CF  PSC  WRT  SIGMA;  PP.2  IS  2ND  TJERIV.  pF  PRC 

C  AND  SO  ON. 

PSO-(i.r:o*FPS)*T/2.i.o 

FR0»(1.C0*£PS)* (SGN*Ct S*CMSS-CAT  AN( SGN*DES*UMSS/T  )')  /2.0C 

PSl-ll.rO*EPSI/2»DO 

PS2-o.no 

PS3-0.fr1 

FRI-SGN*PSI*CfSS/UES 
PR?— SGN*PSl/I0tfSS*CDtS**3)) 

PR3-  Sr.N*PSl*Cl.L0-2.0C*n/(  (CMSS**3)*(CES**5)I 
PR4— SGN*PSl*3.r!0*(l.CC-2.CO*(I.OC-7)*TI/I(OMSS**5)*(ntS**7|) 
OPin-r  )0 
Cf  117  1-2,4 
.31?  Rpm*FP(i-nmc 

C  LSI  IS  LlSUPERSCKIPr  T ILEA, SUBSCRIPT  SIGMA);  URC  IS  LI SLPCRSCRI PT 

C  TILDA, SUf  RHC);  LSI  IS  FIRST  CERIV.  OF  USO  WRT  X,  ETC. 

LSO-PSl/l 10 

UPP-PP.I/t'lO 

UST— .5CC*nil/BPC4l 

LR1-L'S1*PR14P«2/PPI2) 

LSI»USI*FS1 

LS2-r,?0*k’20/El0-.50C*l>21 
UR2-US2*PRl-PR2* I.  5PC*P2C/0P 1 2  )4PR3/BP(3 )’ 

LS2-US2*PSi 

LS3-  P2D*(3.20C'i*0Pl-1.50C0*f2C*f2C/BlC)-  .  SOC*E  11/1 1  PI  3 1  **i  I 
UP3-  US3*PR1  ♦  (4 .7:i0C*l!2C*E2C/BlC-2.0C*b2 1  )*PK2/B  J  0 
3  -i.co*r2c*pm/;'Pm4pR4/npi4i 
LS3-US3*PSI 

C  PMIA  IS  PH  1 1  SUE  A)  ;  UAL  IS  UISOPER  TILDA, SU  A)  ;  Ml  IS  FIRST 

C  CFK1 V.  IF  UA(  WRT  T.,  AND  SO  CN. 

FHI A-CA0TPS64S  Ai:*Pff  0 
LAO-  C Al'*L'SO*S AF*liRfi 
L'A1»  CAB*LS14SAr:4URl 
L A2-  CAP*l.S24SA!’*UR2 
LAI-  CAf,*I.S34SAr;*ll?3 
PK  IC*SAE*PSC-CAl’*l'R  j 
UCO  -SAB*LSO-CAB*URv 
LC1  «SAH*US1-CAH*UF 1 
LC2  -SAB*U$2-C»P*UR2 
LC3  »SA0*llS3-CAB*UR3 

C  UAPK,UCPN,PCC,  ANP  RNUK  STORE  VALUES  FUR  LATER  USE  TC  INTERPOLATE 

C  'CP  VELOCITY  PROFILFS  ANt  THICKNESSES 
PCC IK1-IXP4X0 )*1 .C2 
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UAPMKI-UAO 

UCPK!K)*UCO 

WRITE!3*490) 

490  FORMAT!*  PSO, PS  1...PS4  |  PRC , PR  1 . . .PR4  |P$C,USC...US3  |PRO«liROf 

F  *• ...UR3  1PHIA.UA0...UA3  I  PH IC,UC0. . .UC3  |  XR,B2,64,B6,Bfl  |* 

F  ,,ZR»B3*E5»B7»fl9'  I 

WRITE! 3, 492)  PSO,PRG,PSO,PRO,PHI  A,PHIOXR,ZR,  PSl,PRl,USO,URO»UAO, 
UlC0,B2,B3,PS2,PR2,USl,URl,UAl,UCl,B4*l ...  PS2,PR3,US2, DR2,UA2,UC2, 
2B6.B7,  PS2,PR4,US3,UR3,UA3,UC3.B8.B9 
492  FORMAT (  (  •  *,  8C16.8  )l 
ALPHA* OAT AN( B3/B2I 

IF  ( SGN  .IT.  0.00  )  ALPHA*  3.1415926336  ♦ALPHA 

A0E6*57. 2958* ALPHA 

PO-XIIIU/UAO 

XMO»PO#UA1 

c  xmo  is  misub  c);xhix  is  Ptsue  iki;  rnuo  is  nimsub  o 

RM*(XM04l. 001/2.00 

C  RM,RN,RM$  ARE  DEFINES  FOR  CONVENIENCE 

RN* (XMO-1 .00  )/2.C0 
RMS«RM4$<1) 

RNUO*PHIA>2.CO*IXR*CAH42R*SABI 

RNUMK1-RNU0 

00*2.00*  (CAB*B24$AE*B3  )/f)  10 
C  PARAMETERS  NEECfcC  FOR  F10 

XH1MXI  IK)*UA2+UA1*(1.C0-XM0) 
XP10C«CHUO*UA24UC1-(CHUO*UA14UCC)*UA1/L>AC 
WRITE!3«430)  XMO, PO, CO, RM, ALPHA, H.AOEG 

430  FORMAT C  •  XMO, PO, CO, RM, ALPHA, H,ADEG  *,7014.6) 

WRITE (3,431 )  XM0,XM1K» XM ICC, RNUC 

431  FORMAT!  •  XM0,XN1K,XM1CC,RNUC  •  ,6015.7) 

C  END  PARAMETERS  FOR  FI 

IFUD1M  .IE.  5)  GO  TO  8632 
C  PARAMETERS  NEECEO  FGR  G1 

CCDX A* ! 84-82*81 1/(2 ,CO*fi 10*8)0) ) / (B 10*6 1C ) 

DSCX A* (8 5-63*611/(2. CO* B1C*B1C ) )/(BlC*BlC) 

CCCX-CCCX  A*CCOS (  AB  )4DSCX A*OS  IN  (  AR  ) 

C  RK10  MUST  PE  OEFINtO  HERE 

XM10«XM1MRK104XM10C 
CPK-CHI104XI(K)*RF10 
RMUA10-CPX*CAl 

C  RMllAlO  IS  MUI  SUPER  A, SUB  10),  U010  IS  UISUPER  CELTA.SUB  10) 

RMJ10«CPK*|IIAG-C0) 

C10*CPM*2.C0*0CCX 

UC10«CPX*UA14UC0 

L012-UAC 

C  PARAMETERS  NEECEC  FCR  F2 

XM2K*XM1K 

XM22C-!  CPX4CHI22 )*(UA2-0A1*LIA  1/UA0)4RX1C*UA1 

XM20C*ICHI204X  I  (K )*RR 10**2 )* (UA2-tAl*llAl/UA0 )4(LA3-0Al*UA2/t AC  )• 

X  .500*CPK*CPK  4CPK*(UC24RK10*UA2-UA1*UC1/UAC)4RK10*(L'C14RK1C*DA1) 
WRITE (3, 432)  XM0,XM1G,XM2CC,  XM22C,RK 1C.CPK 

432  FORMAT!  '  XM0,XM1(1,XM2CC,XM22C,RK1C,CPK  •  ,6016. R) 

WRITE  (3,433)  C10,RNI)10,UC10,CCDX 

433  FORMAT!  •  CI0,RNU10,UC1C,CCCX  •  , 5017.91 

C  J«l  2  3  4  5  6  7  E  S  10  11  12 

C  FC  GOO  G01  F 10  F7K  F2CR  F2CC  F21C  F22C  61C  Gil  G12 
PC(10)*RNII10 

C  END  PARAMETERS  FCR  LI  CF 2 
d632  CONTINUE 

C  ENC  CALCULATIONS  FOR  POTENTIAL  FLOW 
C 

C  SECTION  8:  PARAMETERS  FCR  LEW'S  METHCC  AND  A  GUESS  AT  NEW  VELOCITY 


uu  oo  u  uuu  o  oouu  uouuuuou 


PROFILE  BY  EXTRAPOLATION 

FIX  6C, PARAMETERS,  AND  VELOCITIES  IN  NEW  X  STATION 
8CI2I-RNUO 
CC  528  J>If JOIN 

LMAXT*LMAXU*(8.C0*1/J)*XI(K)/XIS-10/J-10 
1FI JOIN  .GT.  5  .AND.  J  .GT.  3)  LMAXT*LMAXT-1 
1FILMAXT  .GT.  LMAXRUI)  LPAXP (J)*LMAXT 

IF (CABS ( E8CI J ) )  .GT.  0.00  LPAXRI J|»LMAXR{ J ) «CABS(EBC I J) /l.D-3 ) 

ESC  IS  OVOZt  2ND  DERI V.  CF  STREAM  FLNC.  WRT  ETA)  AT  ZILPAXKIJ)) 
EACH  STREAM  FUNCTION  IS  INTEGRATED  TO  ITS  OWN  PAX  VALUE  OF  ETAt 
WHICH  IS  GIVEN  RY  ZILHAXR(JI) 

IF (LHAXR ( J I  .GT.  LMAXU-1 )  LMAXRI J )=LMAXU-l 
CPEGAl J)»CHEGAR  «.020C*iJ-l) 

528  ERRORI J)*ERRCRR* I  l.D-1  ♦CABSIBCI J) )♦  .5C-2*VI 2, J,  15, 1 )**2* J/5 ) 
IFIYOil,  1,2)  .IT.  .  12C0  I  ERROR  I  1  )* ERROR  ( 1 )*2 .CC 
NEW  VELOCITIES  BY  INTERPOLATION 
IFIK-6 )  543,543,542 

542  STI2I-IXI  IKI-XIIK-2)  )*CXIIK)-XI  IK-31  )/IDXI  IK-  11*1*1  IF- ll-XI  IK-3)  I) 
STI3l*-0XIIK)*IXllKI-XIIK-3))/ICXIIK-l)*DXI IK-2)  I 
STI4)*CXIIK  1*1X1  IK  )-XHK-2  J  )/IIXIIK-l  )-XINl-3)  )*CXIIK-2)) 

CC  544  J«l,JCIP 
DC  544  L*2,LPAXU 

544  Y(2,J,L,l)>ST(2)*YI2,J,L,2)4STI3)*Yt2,J,L,3)*STI4)*Y(2,J,l,4) 

543  CONTINUE 

WRITE  13, 481)  (SII),  1*1, 4),  I  SKI),  1*2, 4) 

461  FORMAT I  •  SII)*  '.4F15.1C,  1CX,  • ST  1 1 )«• , 3F 15. 1C  ) 

END  NEW  VELOCITIES  BY  INf ERPOLATICN 

ENC  FIX  HC, PARAMETERS,  AND  VELOCITIES  IN  NEW  X  STATION 
CHOOSE  VARIABLE  TO  BE  SCIVEC  FGR  DO  15CC  J 

CC  1500  J"l>  JOIM 

SECTION  91.  FIX  UP  ESTIMATED  PROFILE  10  HATCH  BOUNDARY  CONDITIONS 
LPAX-LKAXRU) 

LPM1-LMAX-1 

CORRECT  VELOCITIES  TO  HATCF  8C  G  CALCULATE  A'S 
IF  BCIJ)  CFANGES  WITH  X  tOR  XI),  THEN  A  NEW  PROFILE  FCR  VELOCITY 
{ACTUALLY  OERIV.  OF  STREAM  FLNC.  WRT  ETA)  MUST  PE  FCLND.  STMT  549 
IS  NECESSARY  TO  BE  SURE  TC  AVOID  DIVISION  RY  ZERO 
IFIGABSI CCIJI-Y (2, J.LMAX,  1 ) )  -1.0-14)  54T, 547,549 
549  IF  I  CAPS  I Y (2, J,LMAX, 1 ) )  -l.D-10)  551,545,545 

545  BC0*6C( JI/YI2, J,LMAX,  I ) 

CC  531  L«2,LPAX 

531  Y(2,J,L,l)«V(?,j,L,l)*t’CC 
GC  TO  547 

551  BC0*IBCIJ)-Y(2,J,LMAX,1)  I/ZIIPAX) 

CO  548  L-2,LPAX 

548  Y(2,J,L,l)=Y(2,J,L,I)-»ECC*ZIL) 

547  CC  53?  P*l,2 

CC  532  L*1»LPAXU 
AIM,J,L)*O.DC 
CC  532  1*2, IPAX 

53?  A{P,J,L)-AtP,J,L)*S(I)«YIP,J,Lf II 

AT  THIS  POINT,  AIM, J,L  )*SUM  CF  SI  I )*YIM» J»L» 1 1  FRCP  I-?  TC  IPAX, 
CR  XliDERIV.  OF  YIH, J,L,  1 )  WRT  XI  MINUS  SI  1 >*Y(P , J,L, I ) .  AS  SCCN 
AS  Y(M, J,L,  1 )  IS  KNCWN,  IT  WILL  RE  ACCED  IN  SO  *-  CAN  BE  LSFC  FCK 
SUBSEQUENT  VALVES  OF  J  TC  REPRESENT  ALL  THE  DERIVATIVE 
ENC  CORRECT  VELOCITIES  TC  MXICP  PC  G  CALCULATE  *«S 

SECTION  101  SOLUTION  OF  CE'S  BY  LEW'S  ME1HC0 

BEGIN  ITERATION  ON  LEW'S  SUCCESSIVE  REPLACEMENTS  DO  I4CC  ITER 
CC  1400  ITERPiitrCRM 
C  BEGIN  MARCHING  IN  l  DIRECTION  DO  13CC  L 
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00  1300  L-2.LMM1 

C  DEFINE  VEL.DVDZ  t  STREAM  FUNCTION 

YT-V(2.J,L,1I 

V< 1. J.L. 1 >-Y( l, J.L-1.1)40Z(L)*(Y(2,J.L-1,1)4VT 1/2.00 
Y(3,J,L,l)-(Y(2,J,L4l,l)/DZ(L4l)-DN(L)*YT-Y(2,J,L-l,l)/CZ(L)  )*.500 
YP-S0Z(L)*m2,J,L4l,l)/CZ(L4l)-EN(L)*YT4Y(2,J,l-l,n/DZ(L)) 

C  YP  IS  2NC  DERIVATIVE  OF  VELOCITY 

C  YP  IS  USEO  INSTEAD  OF  Y(4,J,L,1)  TO  DECREASE  STCRAGE. 

C  J-l  2  3  4  5 

C  FO  COO  C01  F1K  FIOC 

6C  TO  (1, 2,3, 4, 5, 6, 6, 6, 6, 10,  10.  10), J 
C  THIS  STMT  CHOOSES  THE  EQUATION  TO  BE  SOLVEO.  IF  TIME  IS  NOT 

C  IMPORTANT  A  FUNCTION  SUBROUTINE  TO  CALCULATE  FN  AND  FNN  (THE 

C  0ER1V.  OF  FN  MRT  YT)  CCULC  BE  USEC.  THE  6, 6, 6, 6  OCCURS  BECAUSE 

C  FOUR  EONS  ARE  IDENTICAL  EXCEPT  FOR  RHS.  RHS  CONTAINS  NO  YT  SC  IT 

C  CAN  BE  CALCULATED  JUST  ONCE  ANO  SAVE  TIME! SEE  DC  LOOP  FCR  ST£T 
C  NO.  8220) 

C  VT-FO* 

1  FN— YP— Y  (3, J.L,  1 )• I RMS  *Y(1. J,L, I )4AI  1 ,  J,L  )  )4V1*( (XPC4SI1)) 

1  *YT*A|?» Jtl)  )-XMO 

FNN*  EN(L)*SDZ(L)4.500*0N(L)*(RPS  *Y 1 1 . J,L, 1 )4A ( 1 , J.L )  I 

1-Y(3,J,L,1)*RMS  *.5CO*OZU)4VT*2.DO*(XMC4Sm)4At2,J,L) 

CO  TO  117 

C  YT-GOO* 

2  FN— YP-0UMV(L>*Y(3,J,L,1)4V(2.1.L.1)*(S(1)*VT4AI2,J.L)  ) 

2  4XI(K)*(C0*Y<2, 1,L,1)-UAC) 
FNN-EN(L)*S0Z(L)4DUMVtL)*.5D0*CN(L)4V(2,l,L,l>*S<l) 

GO  TO  117 

C  YT-C01* 

3  FN— VP-DUf1Va>*Y(3,J,L,l)4YI2,l,L.l)*(S(l)*YT4/M2,J,L)  ) 

FNN-ENIL)*SDZ<L>«DUMV(L)*.5DG*CN(L)4V(2.1fL.n*S(l) 

GO  TO  117 

4  IFU01M-5)  8720,0720.8721 

C  YT-F1X*  J-4  JDIM<-5 

8720  FN— YP-DUMV(L)*V(3,J.L.l)4(0T(L>4»NC*Yl2,l,L,l))«VT4 

1  Y(2,1,L,1)*A(2,J,L)-Y(3,1,L,1)*(RMS  *Y 1 1 , J.L.l )4A C I , J.L ) ) 

2  ♦P0*RMSFIL)*XM1K 
GC  TO  8722 

C  YT-F10*  J-4  JDIM>*6 

8721  FN— VP-OUMV(L)*Y(3,J,L,l)4(OTIL|4XNC*Y(2,l,L,ll)*YT4 

1  Y(2.1.L.1)*A<2,J,L)-Y(1,1,L,1)*(RNS  *v( 1 , J.L, 1 )4A ( 1, J.L ) ) 

2  4P0*RMSF1L)*XM10 

8722  FNN-S0Z<l)*'N(L)40UMV(L).*CNfL  )*.5C04  CTIL )*XMC*Y< 2, 1  ,L » 1 1 

1  -V (3. l.l, l )*RMS  *07 (L )♦ .500 

GO  TO  117 

5  IF (JOIN— 5 )  6726.6726.8724 

C  YT-FIOC*  J-5  JCIM<*5 

8726  FN— YP-OUMV(L)*Y(3,l,L,l)4(CT(L)4XN0*Yf2,l,L,l))*YT4 

1  VC2,1,L,1)*A(2,J»L)-V(3,1,L,1)*CRMS  *YC 1, J.L.l )4A 1 1 ,J  ,L) ) 

2  4P0*RHSF(L)*XM10C 

FNN-SDZ(L)*EN(L)4DUHV(L)*CN(L)*.$C04  OT ( L)4XPC*Y(2, l.L. 1 t 
1  -YI3.1.L.1 )*RPS  *CZ II )*.5C0 

GO  TO  117 

C  VT-F2K*  J-5  JD1M>»6 

8724  FN— YP-00PV(L)*Y(3,J,L,l)4CTIL)*VT4DT?(Ll*Vf l,J,L,l)4V(2,l,l,l)« 

1  A(2»J»Ll-Y(3»l»L,l)*A(l,J,L) 

5  4XI(tC)*XP2K*RHSF(Li 

FNN-SOZ ( L )*EN(L) 40UMV (l )*CN (L)*.5C04DTU  )4DT2(L)*CZ(L)*.50C 
GC  TO  117 

C  YT-F20R'  J-E 

6  FN— YP-OUPV(L)*Y (3, J.L.l )40TIL  )*YT4DT2(L)*Y(1, J.L.l )4Vf 2, 1,1,1  )♦ 

1  A(2,J,L)-Y(T,1,L,1)*A(1,J,L)  4RHSU.L) 
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FNN-SDZIL  )*£N(L>4DURV(U*CN(LI*.5C04DTIL  )  +  DT2  CL  )*DZ  (LI*.5D0 
CC  ro  117 

C  YT-F20C'  J-7 

C  YT«'21C'  J-E 

C  YT-l:22C*  J-9 

10  FN— VP-CUPVIL)4YC1,J,L,I )4YI2,  1,L,  1 1*1  SI  1I*Y74AI  2.  JtU  )4RHS(  J,  L) 

'  FNN-SOZIL )4FN( L I ♦DUNVIL )*CN(LI*.5C04Y(2,1,L»1)*S(1) 

C  YT-G1 1 •  J-ll 

C  VT-G12'  J- 12 

117  EV  ( L  I— OF  EGA  ( J  )*FN/F,NN 
C  CALCULATE  NEW  VALUES  FOR  Y(2,J,L,l) 

YC2,4,L.l)-VT4EY(L) 

13C0  CONTINUE 

C  ENC  BEGIN  PARCHING  IN  l  CIRECTICN  DO  13CC  L 

CC  536  L-2.LPMI 

IFIDABS(EYIL) ) -ERROR! JM  536,535,535 
C  THE  CHANGE  IN  V<2,J,L,1)  SINCE  THE  LAST  PASS  THRU  THE  L  LOCP  IS 

C  COMPARED  TC  ERROR  (LEW  CALLS  IT  EPSILON) 

536  CONTINUE 
GO  TO  140 

535  CONTINUE 

EYMITFKI-EY(IO) 

C  IT  IS  NOT  NECESSARY  TO  STORE  A  VALUE  OF  EY  IE  EVK  IS  REPCVEC  FRCP 
C  .  WRI TEI3 ,46? )  IN  SECTION  11. 

14C0  CONTINUE 

C  END  BEGIN  ITERATION  ON  LEU'S  SUCCESSIVE  REPLACEPENTS  OC  14CC  ITER 
C 

C  SECTION  ll:  TICY  UP  Y  ANC  A  PATRICES 
URITEI3, 462  I  J 

WRITE  13, 462)  J.K.ITER.LPAK.IEVKII ), 1-1, ITER) 

462  FCRPAT I  •  ITER  FAILS  ',4  15/ (6C 18 .9  )  I 
GC  TO  1405 

1401  ITERKUI-1TER 

C  LEW'S  PETHOC  HAS  NOM  CONVERGED. 

463  FCRPAT 1  •  J.ITER-',  215/1 1C013.5) I 

C  THE  VALUE  OF  Y(3,J,1,1)  (I.E.  DVOZ  AT  Z-0)  IS  CALCULATED.  THIS 

C  FCRPULA  IS  GOOD  CNLY  IF  OZI5)-OZ14)>...CZI2)  • 

V(3,J,l,l)-(  -25.DO*YI2,J,l,l)448.00*Y(2,J,2,l>-36.GC*Y(2,J,3,l) 

•  Y  416. 004YC2. 4*4, 11-3. CC*Y(2,J,5rll  l/C 12.0C*DZ(3)  ) 

CC  537  L-LHAXtLMAXU 
YI2, J,L , 1 l-HCI J) 

C  THIS  00  LOOP  EXTENOS  THE  SOLUTION  FRCP  LPAX  TO  LHAXL 

Vll,JtL*ll-Y(l,J,LPPl,l)«(Z(L l-ZILPP I ) )*BCI J ) 

Y(3, J,L, 1 )-Y(3, J.LPH1, 1I4CEXPI  (  Z  (  LPPl )-Z I L) l/DZST) 

537  CONTINUE 

CC  53B  L-l.LPAXU 
OC  538  P-1, 2 

C  THE  ACCITIONAL  TERP  FOR  A  (SEE  SEC  9)  IS  ADDED  IN 

530  A(P,J,LI-A(P,J,L)4S(ll*Y(P,J,L,l) 

C  END  DEFINE  VEL.CVCZ  r.  STREAP  FUNCTION 
C 

C  SECTION  1?:  FUNCTIONS  OF  ETA  USEC  IN  0.E 

IF! JOIN  .LE.  5  .GR.  j  .NE.  5)  GO  TO  633 
CO  0220  L-l.LPAKU 

C  TERPS  THAT  INVOLVE  FUNCTIONS  OF  Z  (ETA)  BUT  00  NOT  CONTAIN  YT 

C  WHEN  LEW'S  PETHCC  IS  APPLIED,  ARE  BEST  CALCULATED  HERE  AND  STCRfcD. 

C  THIS  AVOIDS  GOING  THE  CALCULATION  I  TERM  J)  TIPES.  RHS(J.L)  IS  NCT 

C  USED  FOR  THE  FIRST  5  EQUATIONS  (GIVEN  BY  STPTS  l  VO  5).  DUPV,RHSF, 
C  CTZ  AND  CT  ARE  CEFINEC  FCR  CONVENIENCE • 

626  RHS(6,L)-XI (K)«(Y(2,  l,L, 1 l*Y ( 2, 2,L,  1 1-RNLC4 . 50C* V( 3 , 1 ,L ,1 ) 

6  *Y ( 1,2, L , 1 )  )  ♦PO*CO* (RNUO- V  (  2 , 2 ,L , 1 ) ) 

627  RHS (7,L I -UA04 ( -RP4YI1,4,L,1 )*Y(  3,4,L, l ) 4XP0*YI2 ,4,1, 1 )**2 
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7  4YI2,4,L,1)*A(?,4,L>-V(3,4,l. 1>*A(1,4,L  )) 

7  4X1  (KJ*XNll)*(2.C0*V  (?»  1*1. »  1  l*Y(?,4,L,li-.50C*V(3,l,Lfl>* 

7  VI l,4,L,l>-.50C*Yll,l,L,l)*V(3,4,L,l)  )  4  X It K ) * ( XN20C-XH10*UD10 

7  /UAO)  •  RHSFIU 

628  RHS(8,LI-XI(K)*(Y(2,  1,  L  ,  1 1-2  .CC4  .50C*Y(  3.  l.L  *  1  )*!  YC 1 , 3 ,L, 1  )*Z(U  >♦ 

8  Y(2,l,L,ll*Y<2,3,L,l)  I  4P0*CC* ( 1.00-Y!  2,3 ,L, 1 1  ) 

629  RHS(9,L)*XI(K)*I  XN22C-XM  l  C*UC  1 2/llAQ|4RH$F  ( L  I 
I F <  JOIN  .LT.  10  »  GO  TO  *220 

RHS(10,U>-(RN«Y(1,4,L,  1  >  +  A  (  1.  4,L  )4.5CC*PG*XH1G*V(1,1«L«1))* 

C  YI3.2.L.1)  4YI2.A.L. 11**12,2,1)  4XICK)*!  CC* V! 2, A ,L . 1 I-RNUA10 

0  4Y(?,1,L,1)*C104RK10*( Y(2,1,L,1)*C0-UA0)) 

RHSIll»LI*-(RN*V(l,4,L«l )4A( 1 ,4,L  )4.5CO*PO*XNIO*VI i, l.L,  1 11* 

1  Y(3,3.L,1)  4YI2.4.L, 1 )*A(2,3.L) 

RH$I12,LI*PU*(1.C0-VI2,3,L,1M 
8220  CONTINUE 
633  CONTINUE 

IFIJ-1I  639,539, 1500 

539  CC  540  L«1,LNAXU 
CUNVIL>*RN*V(  1,1, 0,1)4*11, 1,L> 

RHSFfUaV(2,l,L,ll**2-.5CG*Y(3,l,L,l)*Y(l,l,L,n-l.CC 
CT2IU-  (PN-Sl l)t*Y(3,l,L,l) 

540  CT  ( L  !■  IXNO  4S(1M*Y(2, l.L, 114*12, 1,U 
1500  CONTINUE 

C  END  CHCOSE  VARIABLE  TC  BE  SCLVEC  PGR  DO  15CC  J 

C 

C  SECTION  1U  WRITE  UP  Of  RESULTS 
WRITEI3, 46281 

4628  FCRNAT! IX,  T22, • J-l • , T35, ' J»2*  ,T46. • J«3* ,T57 , • J*4' , T66, • J«5  •  ,T76, 
8  •J*6',T86»'J*7',T94,'J*8',llC3»'J»9,»T113»'J*lC',T12I»'J*ll'rTl2fl 
8  , ' J*l?' I 

IF  I  JOIN  .LE.  51  WRITE! 3,4640  I 

4640  FORNAT!  *7  L  *.  T23,'F0',T35.'G00',T46, 'G01',T57, 

i  'F«',T67,'FI0C'  » 

IF  I JOIN  .GT.  5)  WRITE! 3,464  ) 

464  FORNAT!  •  Z  L  '.  123, *F0' ,T35, 'GOO* ,T46, »G01 ',T57, 

1*FI0*,T66,'F2K',  T76, * F2CR' , T€6»* F2CC* » T94, 'P21C' »T1G3 » 'F22C ' »T1I3 
2,  ,G10',T12t,'Gll,,T128,lG12'  I 

465  F CRN AT C1X»F7.4»I4,'VEL  •,  F12.f,2Fll.7,2FlC.6,F9.6,F9.3,  F9.5, 

5  F9.4,F9.5,F8.4,F9.5  » 

466  FCRNATIIOX,  •  CVC2  ',  F  12.8,2FU.7,2F10.6,F9.6,F9.3,  F9.6, 

5  F9.5,F9.6,F8.4,F9.5) 

467  FCRNAT ! •  B.C.  AT  Z-INF.  ',  Fl2„8,2Fll.7,2F10.7,5F9.fc,2F8.5  I 

468  FCRNAT I*  NAX  ERROR  IN  VFL1,  F  12. E, 2F 1 1. 7, 2F  1C. 7 ,5F9. 6 ,2FR. 5  } 

469  FCRNAT!*  ONEGA-FINAL  VAL*  ,F12.8,2F11.7,2F1C.7,5F9.6,2F8.5  ) 

470  FCRNAT!'  STREAN  FUN3LNAXU'  , F 12 . 6, 2F 11. 7,F  1C.6 ,F1C.7 S5F9.4 ,2F8. 31 

473  FCRNAT!'  NAX  VALUE  CF  L  •  17, 2111, ZIIC, 519, 218  »' 

474  FCRNAT!'  NO  CF  ITERATIONS',  15,2111,2110,519,218  ) 

475  FCRNAT!'  CVCZ  TOC  6 1G8LNX'  ,F I2.E ,?F1I.7,2F1C.7,5F9.6,2F8.5  » 
MIST-0 
LNIK-LNAXU 
LNAX«| 

OC  552  Jal, JOIN 

IF  I LNAXR  I  Jl  .IT.  LNINI  LN  IN  -LNAXRU1 
IF(LNAXRIJ)  .GT.  LNAXI  LNAX-LNAXR ( J) 

IF  OVOZ  IS  NOT  SNALL  1LES*  THAN  SAY  I.D-31  AT  ZILNAXRIJM  THEN 
THE  B.C.  AT  EOG^  OF  TCUNCARY  LAVER  IS  NOT  CORRECTLY  SATISFIED. 

THIS  NFANS  THAT  ZILMAXKIJII  I  THE  NAX.  VALUE  CF  ETA  FOR  ECN.  NC.Ji 
IS  NOT  LARGE  ENOUGH.  LNAXR I J )  SHCLLO  BE  INCREASEC. 

THIS  Oil  LOOP  CHECKS  CVOZ  AT  Z (LNAXR! J)  I  .  LNIN  ANO  LNAX  ARE  JLST 
LSEU  FCR  WRITE (3,4651  ANC  WR ITE ( 3,466  I . 

IF ( TARS  IV (3, J, LNAXR I J), 11  l-l.C-31  6CC,6CC,6C1 
601  ERC(JI-V(3»J,LNAXRIJ>,1) 
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NTEST«I 
CC  TC  552 
600  EBC<JI*C'.rO 
552  CONTINUE 

IHIW/1X  .CT.  LNAXUI  r, C  U  16C5 

JPl=LPAX/5 

CC  861  l  =  1 »  LP AX 

IE<<L/2)*2.tt.  L  .AND .  L  .GT.  h  .ANL.  L  .LT.  LPAX-2)  GC  TC  PM 
NRITL <3,665)  2  <  I.  I  ,L  •  t  V  1 2  ,J  ,L  ,  1  >  .  JM  ,  JL  IP  ) 

IF  (  L.GT.  10  .ANC.L  .  '  T.LMN-2  . AN C .L .ME . I L / JP  1  )♦ JEl )  Cl  TD  PM 
HRI TE <3,666)  IYH,j,L,ll,Jc],JCIM 
861  CCNT IMJE 

WRIT £<3,6671  I  PC < J I , J= 1 , JC I  * ) 

HRITE<3«66R|  <  CRRCR  <  J  ) ,  J=  1 ,  JT  IP  ) 

►  R I T  f-  <3,669)  <  CPFGMJ  ),J=1,  JC  IP  ) 

WPITF<3,673)  <  I.PAXi<<JI,J=l,JClF  ) 

WRITE<3,676)  <  I  T£HK  <  J ) ,  J=  1 ,  J(I  F  ) 

FRITE <3, 670)  (Y(l,J,LPAXL,l),Js]tjriv) 
lFINTEST  .GT.  Cl  WRITEM.675)  <  £  EC  <  J  )  ,  J=  1 ,  JT  1 K  ) 

ENC  NRITE  STPTS 

SECTION  16:  CHECK  CF  CHCHCNISE  DERIVATIVES  IGPTICML) 

THIS  SECTION'  CAN  fit  CM  I  TEC  If  DESIRED.  THIS  CHECK  CLNSIDFRAELY 
CVEMESTIPATES  THE  EKSCP ,  ESPECIALLY  IF  THE  FUNCTION  IS  DECREASING 
IN  MAGNITUDE. 

CP*CX ( K — 1  I 
CK*=CX  <K ) 

IERRXP=G 

IF  I  K  .LT.  91  GC  IC  716C 
DC  7138  J* 1 , JC I P 

XDC<JI«XI<K-1I*<  -UF>V<2,J,  It, 3)/<<OK4pP  )*I)P  )♦<  CK-C0  I*V<?,J«1C,2) 

1  /<DK»CP|6CP6Y<?,J,10,1)/(<CMCP)*CM  I 

XOC  IS  A  CENTRAL  DIFFERENCE  AT  THE  I K- 1  >  POINT.  XOP  IS  THF  BACN- 
h ARC  CIFFFRFNCE  USFC  AT  IK-1) 

PCE<J»*XCC<J|-XCP<J) 

IF<0AB3<PCE< Jl 1-1. r-2-l.C-3*Y I  2,15, J, l )**2  I  713£,71»f ,7117 
7137  IFIOABSIPCf IJ)/XCC<J)).rT.  5.D-2J  I6RRXU=J 
1 13B  CCNT I NUE 

lKERRIK-1)  MERRXC 

7160  CC  7161  J»1,JDIP 

7161  XCPMI*A<2, .1,101 

IF <  IE-RRXC  .GT.  H»  HR ITE  I  3,670 <PCt  l  J  I  ,  J=  If  JDIP  ) 

676  FCRPAT I  *  ERROR  X  CtRIV.  •  ,F 12. 7,?F ll.fc, 2f 1C .5 ,5F 5.6, ?FC. 3  I 
IF  ( IERRXD  .GT.  01  HP.  ITEI  3,67  7 1  <  XPC<  J I  ,  J*1 ,  Jl  I  P ) 

677  FCRPAT< '  VELCC.  X  CtRIV.  •  ,F12.7,2F  11.6 ,2F  1C.5.SF5.6,  ?FK.  ■)  ) 

END  CHECK  CF  X  DERIVATIVES  AFTER  ttP.ITE  STATEMENTS 

SECTICN  15:  E.L.  THICKNESSES  ICPT IC NAL.SEE  SECT1CNS  2  AM.  16) 

BEGIN  CALCULATION  CF  THICKNESSES 

THIS  SECTICN  CAN  P.t  CM  I TTEO  IF  f  ESIPLD.  FOR  GIVEN  VALLES  CF 
FCRHARfj  FtICHT  SPFFl  (SFTI,  AZiPUTHAl  ANGLE  IPSIT),  ICFFTinM  VO) 
SFAN/CHf  RC  <YP, FCUNC  FRCP  THE  ASPECT  RATIO, ART  I  AND  EC  R  THE 
CURRENT  VALUE  CT  XI  IXIIM  THE  VALUt  CF  X  <*P)  IS  CALCULATED.  HY 
INTERPOLATION,  UAC  (UAPI,  UCC < CCP ) , PCK  CENT  CHCPI  I  PC, CP ),  »ND 
NMPNUPt  ARE  FOUND  AT  XP.  CISPLACEMT  AMU  f'OPENTLP  TE ICDNESS  ARE 
C  CALCULATED  AND  WRITTEN. 

IF!  K  .LT.  8  .CR.  JDIP  .LT.  1C  .OR.  NG I  .EL.  0)  GP  TC  5C6G 
CC  5060  NG>1«NGT 

11  “SHT ING) *CCGS<PS IT INCI/57.29578CC) 

T2  *SHT ING|6CSIN(PSIT(NG)/57.?5576CC) 

VA?*VAT ING 1**2 

NRITE<3,5C36)  PS  IT ING) ,VAT  INC )  ,  SHI  ENG ) , ART <NG ) 
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3036  FORMATI/  •  AZIMUTH  ANGLE* '  «F6.1,9X,' INDUCED  VEL- • ,F4.6, 9X, • SPEEO  R 
1ATIC-’,F4. 5, 5X, ’ASPECT  RAT!0-’,F7.3  / 

2  •  SPAN/CHCftC*  »4X,  •  X’,4X,’  ICHORD  X  DISSENT  THR  ’,’  Y  OIS" 

SPENT  THR  X  MON  THR  T  MOM  THR 

6*  XI  ’,’  Q  •  > 

GC  9040  IYP-1,4 

VP-(.300*IYP-.2500»(IVP/4) PARTING) 

IFIYP4T2  .LT.  0)  00  TO  5038 

GP-1.00-VAT(NG)*RK10/YP-(RR20R*RK20*VA2«RR21*T1«RR22*T2*VATING)>/ 

CfVPPYPI 

IFIQP  .IT.  ,300  .OR.  OP.GT .  2.00)  GO  TO  9030 

XI  IP-  CHIO«VAT(NG)*tCHI10«tVATtNG>*CHI20*T2*CH122>/YP)/YP 

XP-XIIRI/CP  ♦  XIIP 

CALL  CaEX(E,X(R),X<R-l),XtK-2),XP) 

C  SUBROUTINE  COEX  JUST  CALCULATES  INTERPOLATION  CONSTANTS  FOR  3 

C  POINT  LANGRANGI AN  INTERPCL AT ICN. 

PCCP-0.00 
UAP-0.00 
UCP-0.00 
RNUP-0.00 
CC  5020  1-1,3 

PCCP-PCCP*  EU>*PCCIR-I«1) 

UAP-UAP4E II l«UAPR IR I 
UCP-UCP+E I I)*UCPR I R ) 

5020  RNUP-RNUP«E(I)*RNUR(X) 

RNUP-RNUP+Tl 

CVAR-  (XP-XI IPI/HYP4T2  )*UAP4VATING)*UCP) 

IFIOVARI  4740,4740,4741 

4740  MRITEf 3,47421  VP,XP,QP,UAP,UCP,CVAR 

C  IF  Q<*3  CR>2,THEN  SERIES  IN  SPAN  IS  PROBABLY  INACCURATE. 

4742  FCRNAT(1X,2F10.6,’0VAR<0)YP4T2  tOO  SMALL  QP-SF10.6,’  LAP-1, 

F  FI0.6,*  UCP-* ,F 10.6,  *  CVAR-’ ,011.4  ) 

CC  TO  5040 

4741  CVAR-OSORTIDVAR) 

CONO-l • 00/ IUAO*VP*VP ) 

CON 1-VAT ING) /VP 
CCN2* IVAT (N6 1**2 l«CONO 
CCN3-Tl*CONO 
C0N4-VAT ING)*T2*C0N0 
CCN5-VAT ING)*T1/YP 

CC  4750  L-1,LMAXU 

UP t L )*VI2« 1,L» 1 )  ■♦C0N1AY  C  2,4,L, 1 ) ♦CONOAI Y 1 2,6 ,L, 1 )*RR20R*Y (2,5,L, l ) 
1)  +C0N2*(YI2«7,L«l )+RR20*Y  1 2,S,L, 1) )♦  C0N3*( Y(2,0,L,1 1*RK214 
2  Y(2*5*L«1) !♦  C0N4*IYI2,9,L, 1  )4RR22*YI2, 5,L ,1)9 
VPIL)-YI2,2,L,1)-»T1*YI2,3,L,1HCON1*YI2,IC,L,1I*CON5*YI2,11,1,1) 

V  ♦T?*VI2,12,L,1VVP 
LP(L)*UP(U*UPUt 

4750  VP(L)aVPIl)*VPIL l/RNUP 

l-LMAXU  ui 

TRm-YIl,l,L,lMCONl*Yll,4,L,l)4CONO*(YIl,6,L,l)-*RR20R*Yll,5,L,l) 
1)  ♦CON2*IYIl,7,L,l)4RR20*YCl,5,l,l))4C0N34fYCl,*,L,l)4MR214 
2  YC1,5,L,1))*  C0N44IYI 1,9,L,  1  )*RR22PYf 1,5,L,1)) 
TRl4)aV<l,2,L,l)-»Tl*V(l,3,L,l)4C0Nl*V(l,lC,L,U«C0N"*Y(l,ll,L,ll 

V  ♦T24VI1, 12rL,ll/YP 

TR 1 1 l-OVARPl 1 1 LMAXU  J-TR ( 3  )  ) 

TRI2)-0VAR«IZILMAXU)-TR(4)/RNUP) 

CC  4751  1-3, LMAXU, 2 

TRl3laTRI3l-CZILI*IUPIl-2)-»4.CC*UPIL-l>4LP(L  >1/3.00 
TRl4)aTRI4|-CZ(L)*IVPIL-2)44.D0*VPIL-l)+VPIl ) 1/3.00 
LST-L-H 

IFIC2IL42)  .NE.  mill  GOTO  475! 

4751  CONTINUE 
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4755  rc  4756  l«LST,L*AXU 
TKm-TM3)-CflUMUP<L|4UP(L-m*.50C 

4756  TR(4)-TK(4)-CZ(L)*IVP(ll4VP(L-lM*.SDC 
TKm-DVAR'TRm 
TX(4)«TK(4)*CVAft/RNUP 

N R I  TEC  3  *5035  )  YP,XP, PCCP, <TK I I 1-1,4 ) *  X I  IP, CP 
5015  FCRRATI  IX. 3F I0.6.4F 16 .1C .  2F1C.7  I 

GO  TG  5040 

5030  WRI 7E (3,5034  I  YP,T2,CP,PS1T(NG ) 

5034  FORRAT (  •  EITHER  YP-',F10.6,'  IS  <  T2-' ,F10.6,6X'0R  CP-'.FIC.fc, 

F  •  IS  <.3  OR  >  2.  • ,5X,'PSI-' ,F7.2/»*CHORO«' ,F6.2,  'SPEED  RATIO-', 
3  FT. 3/1 
5040  CONTINUE 
5050  CONTINUE 

END  CALCULATION  CF  THICKNESSES 

SECTION  161  VELCCITY  PROFILES (OPTIONAL, SEE  SECTICNS  2  AND  15) 

THIS  SECTION  CAN  lit  GRITTED  IF  DESIRED.  VELCCITY  PROFILES  ARE 
FOUND  AT  A  GIVEN  PER  CENT  CHCRO  (WHICH  GIVES  A  VALUE  OF  X).  THUS 
XI  RUST  BE  FCUND  (XIP).  SINCE  FC', GOO', ETC  ARE  KNOWN  ONLY  AT  THE 
POINTS  XI (Kl, THEY  RUST  PE  INTERPOLATED  TO  XIP. 

DEGIN  CALCULATION  OF  VELCCITY  PROFILES 

IF  I  NOVEL  .EG.  C  .OR.  JCIR  .IT.  10  -.OR.  K  .LT.  BIGG  TQ  5C8C 
OC  5076  NG-1 ,NGVEL 

IFIPCCVING)  .GT.  3.L0*PCC (R I  )  GO  TO  5C76 

CALL  CCEX(E,PCC(KI,PCCIK-1),PCCCX-2).PCCVCNG>> 

XP-EUI*X(K>4E(?)*X(K-ll4Em*X(K-2) 

T1-SHV(NGI*0CCS IPS IV (NC 1/57.25578  I 
T2-SHV  CNG  I*  CS  IMPS  !V(NG)/57«2S578I 
VA  -VAVINC ) 

V*2-VA*VA 
DC  5075  IYP-1,4 

YP-(.3D04IVP-.25C0*(lYP/OI*AKV(NGI 
IFI  HIRING,  IVP)  .GT.  0  I  GO  TO  5CT5 
IFIYPAT2  .IT.  01  CO  TO  5C73 

CP«1.0C-VA6RKld/VP-IRK20R4RK20*VA2*RK2!*mKK22PVA»T2l/CYP*YP) 

IF lt,P  .it.  .300  .OR.  CP  .GT.  2)  GO  TO  5C73. 

XlIP»lT.hI0*VA*IO<I104lVA6CRl2C*T2*CHI22)/YPI/YP 

x I P-CP* I xp-x 1 1 R I 

IF (XIP  .GT.  XI  IN  I  I  GC  TC  5C75 

HIRING, 1VPI-K 

CALL  COEXIE,XI  IK  ),  X  I  IK-1  ),XI (K-2 I ,X IP ) 

DVAR-VP*YP*(E ( 1  )*UAPK(K )*E  1 2 1  AUAPMK-l  |4E( 3 1  *UAPK(K~?  1 1 

DC  5070  L-itlMAXU 

UPILI-O.CO 

VP!ll*O.CC 

DC  5069  1-1,3 

LPUI»lJ?(LI*F(n*l  Y(2,1,L,  IMVA*YI2,4,L,n/YP«(  Y<  2,6,1, 1)4 

1  RK20P»Y(2,5,L,l)4VA2*|Yl2,7,L,I)4RK2C*YC2,5,L,m  ♦ Il*( V(?»8»L,I ) 

2  ♦  RK?t*Y<?,5,L,m*VA*T2*<Y(2,9,L,I>«RK22*Yf2,5,L,m  I/DVAR  ) 

5069  VPtLI«VPIU4Ein*t  Y  1 2,2,L  ,  I)  +  T1*Y(2,3,L,I  )  4  (  YA*(  V  1 2, 10, L  ,  I )  ♦ 

I  Tl*YI2,ll,L,I)  )4T2*Y(2.»  12,L,  1 1  l/YP  ) 

5070  VPILI-VP.IU/ARVtNG) 

IFf IYR.EC.II  GO  TO  5C6C 

WRITE  13  »'5G6'2)  PSIV(NGI,PCCV(NG),XP,SHV(NG),VAV(KG), ARV(NG) 

5062  FCRMU//'  AZIRltTH  ANGl^-'  ,F6. 1,  AX,  '3CH3R0-*  , F8. 5, 4X,'X*', F12.fi, 
l  4X, 'SPEED  RATIO-', F9. 5, 4X,» INDUCED  VEL' ,F7. 3, 4X, 'ASPECT  RATIO', 
2F7.3  I 

5060  WRITEI3»5059 I  YP 

WRITE 13,5064 )  <L,Z(L  ),UP (L ), L- l.LRAXU I 
5064  FCRRATI  IX, I2,Ft.3,F8.4,4X, 12, FT. 3,F8.4,4X, I2,F7.3,F8.4,4X,I2, 

I  F7.3fF6.4,4X,I2,F?.3,F8.4  ) 
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WR1TEI3,5065)  CP*XI IP,X1P, CVAR 

5065  FCRPATI  •  QP-*  , 0 15.5,  •  XI  IP,  XIP.OVAR-* , 3015. 6  ) 

WR1TEI3,5066) 

5066  FORPATI/  IX, 5 <  •  L  l  V/R»GPECA  •»  I 
WRITE (3,5064 1  (L,Z <L l,VP(L  ),L-1,LPAXUI 

60  TO  5075 

5073  WRITE(3,5034)  YP,T?,QP,PSIV(NC) .PCCVING) ,SHVCNG) 

5075  CONTINUE 

5059  FCRPAT(/*  VELOCITY  PROFILES  FOR  SPAN/CHORD-* »F8.5/1X, 

1  51'  l  Z  U/UOELTA  •  )) 

5076  CONTINUE 

5060  CONTINUE 

ENO  CALCULATION  OF  VELOCITY  PRCFILES 

SECTION  I7t  VALUES  OF  XIS  A NO  R*S 
1FU0IP-5)  566,567,566 

FO'SVALL  IS  EXTRAPOLATED  TO  ZERO  TO  FIND  XIS.  THEN  RIO  IS  THE 
VALUE  OF  -FlOC/FIRawALL  EXTRAPOLATED  TO  XIS. 

567  RRIOTE  --V  (3,5, 1,1)/Y  0,4,1* 1 1 
WRITEI3,489)  RRIOTE, VII, 1,1, 1) 

489  FORHATt*  -FlOC-/FlK"aVALL-  •  ,020.12, 10X, •  F0"8WALL- *,D20. 10) 

566  CONTINUE 

IFIR  .IT.  15)  GO  TO  568 
IFIJ0IP-9)  568,569,568 

569  CC  570  J-6,9 

570  RRJ(J)«-Y(3,  J,  I,  I) /V 0,5, 1,1) 

RRJI6) ...RRJI9)  ARE  EXTRAPOLATED  TO  XIS  TO  FINE  K2CR,R20,R21,R22. 
WRITE  13,571)  RR J (6 ) , RR J (8),RRJ(?) ,RKJ 19) 

571  FCRPATI*  -0VCZ8WALL/F2R*  •  ,52X,013.«,5X,011.6  /80X,D13.6,5X, 

1  CIS. 6) 

560  CONTINUE 

SECTION  18:  UPDATE  VELOCITIES 

UPDATE  VELOCITIES  FOR  NEW  X  STATION 

THE  VALUE  OF  R  WILL  BE  INCRENENTEO  SOON.  SINCE  l-l  DENOTES  THE 
CURRENT  VALUE  OF  R,  Y(P,J,L,1)  RUST  BE  UPDATED.  THESE  00  LOOPS 
SET  VIP, J»L» IPAX )-Y IP, J,L,  IPAX-1  )...Y(M«J,L,2)-VfP*«t,L,l).  AFTER 
R  IS  INCRENENTED  (BY  CO  3C  R-1,RPAX)  YIP, J, 1,1)  8ECCPES  THE 
VARIABLE  TO  BE  SOLVED  FOR. 

CO  1429  IT-1,3 
CC  1429  L-1,IPAXU 
CC  1429  J-1,JD!N 
CO  1429  P-1 ,3 

1429  Y(P«J,L»5~IT)  -V IP, J,L,4- IT ) 

:  ENO  UPDATE  VELOCITIES  FOR  NEW  X  STATION 
8723  CCNTINUE 

WR1TE(3,672)  R,PCC(M  .  . ,  .  ,  ,  ,y 

872  FORPATI*  ENO  OF  K«*,I5,1CX,*  PER  CENT  CHORO  AT  INFINITE  SPAN** , 

F  F12.8,*X*///> 

GC  TO  30 

SECTION  19:  DIAGNOSTIC  WRITE  STPTS  AND  TERPINATICN 

THESE  WRITE  STPTS  GIVE  SOKE  (NFORPATION  ON  WHY  THE  PGP  STCFPEO. 
1405  IFfXfR)  .IT.  XI  !NT.AN0.X(K)*X(R-1)  .LT.O.  COWRITE  1 3,4  80)  X(R) 

480  FCRPATI/*  AT  STPT  3314  XIR)  (-*,120.12,*)  IS  <  XIINT*/*  CHAKGL 
1CXIIK)  •  /) 

IFILPAX  .GT.  LPAXU)  WRITEI3.7C4CI  LPAX 

7040  FORPATI/*  AT  STPT  552,  LPAXU<IPAX,  WHICH-*, 15  > 

IF  I  ITER  .GE.  1TERP)  WR ITEI3,  1C41 )  J,IPAX,  ITER  ,f  Yl  2,  J,L,1 )  ,L>t,LP.AX) 

7041  FCRPATI/*  SUCCESSIVE  REPLACEPENTS  DIVERGE  FCR  J-*.I3/*LPAX-*, 

1  13/*  ITER-*’,  14//*  YI2,J,L,l)-*/(  IX.  1C013.5 ) ) 

IFIITER  .GE.  ITFRN  .AND.  K  .GT.  IS  '.ANO.  YI9, 1,1,1)  .IT.  .0*00) 
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MI  IE  (St  7044 1  V(3* 1* 1* 1 ) *XI IK ) 

7044  FCRFATI/*  F0«  AT  1-0  IS*»015.7«*|  LEW'S  RETHOO  MIU  NOT  CONVINCE 
IFOR  FO*  <  .0)  OR  .04*  //  •  IF  THE  CURRENT  VALUE  OF  II  l**D13.7t 
2*1  SEERS  LIKELY  TO  CIVE  FO"  TOO  SHALL*  THIS  IS  PROBABLY  A  NORRAL 
3TERRINATI0N  •  I 

THE  FINAL  VALUE  OF  XI  SHOULD  BE  CHOSEN  lit  TRIAL  AND  ERROR)  TC 
CIVE  FO*  BETWEEN  .06  AND  .04 
IF(XIK)*X<K-1)  .EQ.  O.CO)  WRITE  0*704/ 1  X(K) 

7042  FCRFATI/*  AT  STHT  3314  X IK )-• «020 .10/  •  CHANCE  OXIIK)  •  /) 

KR-K-2 

DC  7051  I-9.KH 

7051  IF( IKERR ( 1 ) .CT.O  .AND.  KP  .CT.5)  WRITE! 3.7C52I  It IKERRI 1 1 

7052  FCRFATI*  X  DERIVATIVES  RAY  IE  INACCURATE  AT  K-*.I3»*  FOR  J**,I3) 
9996  WRITE  13*7043)  K 

7043  FORRATI/*  EXIT  CALLED  AT  STRT  1405  FOR  K»*,13) 

IF ( J  .EG.  1)  CALL  EXIT 

JOIR-3-1 

IF!  ITER  .EO.  ITERR  I  60  TO  1401 
CALL  EXIT 
30  CONTINUE 
END  K  LOOF  IN  XI 
WRITEI3*7055) 

7055  FCRFATI  •  FCR  STOFS  BECAUSE  KRAX  IS  TOO  SHALL  •  ) 

CALL  EXIT 
ENO 


SUBROUTINE  CCCXIE, A*fl*C*C 1 
IPPIICIT  REAL*!  !A-H,C-Z ) 

COEX  FROVIOES  COEFFICIENTS  FOR  3  POINT  LAWCRAW6IAN  INTERFCLATICN. 
IT  IS  USEO  IN  SECTIONS  15  AND  1A. 

DI PENSION  E C 3 ) 

EI1)-ID-B)PIC-C)/I  IA-B)*1A-C)  ) 

Cf2)-I0-A)*(0-C)/I  IB-A)*(3-C)  ) 

EI3)-ID-A)*IO-B)/t  IC-A)4(C-B)  ) 

FIDI-Ef 1 )*FI A)4EI2)*FIB)4EI3)9FICI*  WHERE  F  IS  SORE  FUNCTION 

RETURN 

ENO 


REAL  FUNCTION  0S0XMI0URPV*DE  5 
IPPLICIT  REALM  |A-H*C-Z) 

OSDX  CALCULATES  THE  VALUES  OF  B1....B1C  NEEDED  TC  FIND  THE 
POTENTIAL  FLOW  AND  TO  RELATE  X  ANC  SI6RA. 
C0RMM/BU/EFS*$6N*Bl*B2*B3tB4«BStl6*B7tB8tB9tBlC 
IFISGN)  15*65*75 
15  1FI0UFRY)  75*75*74 

74  SCN-1.00 

WRITE(3*401)  OEtSCN* SCR* CURRY 

75  S-0E-1.00 
CPS2-0E* II. OO-SI 

IF(CABSI0RS2)  «LT.  1.0-50  WRITEI3.401)  DEtS6N.CFS2,DUFPV 

IFI0ABSI0RS2)  .LT.  1.0-50)  0FS2-1.0-5C 

BA» I l.DO-EFS )••/ 

ll-l.OO-EFSPEFS 

6C« 1.004 EPS 


B1-1.00«EP$*EPS-2.00*EPS*S 
l2>0C9ll.00«IA*BB/f0l*Bl M/4.00 

B3>SGN*BC* t-S* 1 1.D0-8A/B1 )-0MS2*2.00*EPS*IA/81**2 1/14.00* 

I  0S0RTICMS2) ) 

IF  I  OA8SIOUMMV*SGN-13.CO>  .ST.  1.0-4)  GO  TO  II 
tO>IPS*BC*BA/(2.CO*Bl*OSCRTtGMS*) ) 

E4-BC*RA*BB*EPS/B1**5 

•£•81*01 

BSPSGN*BO*(-l.CO/t6A*CII«2.00*S/81-4.00*EPS*CMS2/BE) 

»<t.OO*EFS*B4/BI 

BB-6.00*£PS*B4/B1 

BG-2.00*EPS/B1*S/CMS2 

•P«1.00/tOE*CE*BA)*2. CO/11412.  (CF$»S/BE-U.DC*EFMIFS«0F$2/ai««3 
B7>B9*BG«SGN*BC*BF 

B9-BG*874(4.CO*EPS*EPS/BE4(1.CO*2.*S*S/OMS2)/OHS2>*PS*S€N*BO*6F*6C 
9  «SCN*BO*f-2. 00/(66*01**3 1*16. O04EPS/BE4lO.OC*EPS*fPS*S/<Be*Bi) 

9  -96.00* IEPS**3l*0MS2/(eE*BE)  I 
401  FCRMATI  •  62,B3,CE,SCN,0RS2,CUPMV  *.6016.7  ) 

IB  El6«0S0RT tB2*B2*63*t)3>*SCN 

IF lOABSIOUMDVI.LT. 1.0-6  IMRITE 0.401 )B2.B3.DEfSGN.0BS2.DUMMV 

OSOX-1. 00/810 

BITURN 

EDO 


CATA  CAROS 


SAMPLE  CATA  CIRCS  FOR  ALPHB  •  .CCS 


.29 

0.005 

-.000016I2C4SS6CC7 

.440 

7.11 

EXTRASTAFF 

.799 

-55.05 

.423 

-7.19 

RK2  FCR  .005  DEG 

10 

5.629 

90. 

0. 

20. 

10. 

•CCS. 

5.629 

90. 

0. 

2C. 

30. 

•  CCS 

5.625 

270. 

0. 

20. 

10. 

.CCS 

» 

5.629 

270. 

0. 

20. 

30. 

.cos 

•  4  . 

2.B12 

90. 

0. 

20. 

30. 

.cos 

1  '  *  ' 

1.406 

90. 

0. 

20. 

30. 

•CCS 

*  • 

5.625 

45. 

0. 

20. 

30. 

.005 

t 

5.625 

135. 

0. 

20. 

30. 

.005 

52625 

225. 

0. 

20. 

30. 

.CCS 

*  .  , 

5.625 

315. 

0. 

20. 

30. 

.CCS 

y 

5.625 

90. 

0. 

2C. 

.005 

2.R12 

90. 

0. 

20. 

•CCS 

1.406 

90. 

0. 

20. 

.CCS 

5.625 

45. 

0. 

20. 

.005 

5.625 

135. 

0. 

20. 

.005 

5.625 

225. 

0. 

20. 

.CCS 

5.625 

315. 

0. 

20. 

.  • 

•CCS 

'  .  *  \  i 

SAMPLE 

!  CATA  CAROS  PCIt  ALPHA  «  2. 

j 

0.250000 

2.0000000 

-0.0099944141423246 

•323 

10.4 

fcXTMSTAFF 

.485 

-122.4 

•  596 

-10.46 

, 

M2  FOR  2  DEG 

SAMPLE 

i  CATA 

CARCS  FOR  ALPHA  -  3.344 

.  *  *  U 

0.250000 

1.3490000 

-0 .0103629071220279 

•  244 

15.01 

EXTRISTIFF 

.529 

-252.6 

.703 

-19. 09 

6K 

• 

3.1226 

90. 

.07690 

13.71 

10. 

6K 

| 

3.1226 

90. 

.07650 

13.71 

4K 

* 

’WUffWfPWMjEl*  %9 


SAM FtE  OAfA  CARDS  FOR  AlPHB  •  4. 


0.250000 

410000000' 

-0.0126297115102109 

.201 

ie. e 

EXTRASTAFF 

•  24* 

1 

-960.7 

.720 

-10.02 

RK2  FCA 

4  PEG 

f  .625 

A 

40. 

.2117 

20. 

10. 

4  DEC 

V 

SAMPLE 

:  DATA  i 

CARCS  FOR  ALPHB  >  4.465 

.25 

4.465 

.01491049442 

.170 

22.15  ’ 

EXTRASTAFF 

.170 

-447.5 

.709 

-22.15 

RK2  FOR 

4.465  OEG 

10 

5. 1224 

90. 

.10140 

19.71 

10. 

EK 

9.1226 

90. 

•10140 

19.71 

12. 

OK 

9.1226 

270. 

.10190 

19.71 

10. 

OK 

9.1226 

270. 

.10190 

19.  T1 

12. 

OK 

1.5619 

90. 

.10190 

19.71 

10. 

8K 

.7007 

90. 

.10140 

19.71 

10. 

CK 

9.1226 

45. 

. 10198 

19.71 

10. 

OK 

9.1226 

195. 

.10140 

19.71 

10. 

OK 

9.1226 

225. 

.10190 

19.71 

10. 

8K 

>.1226 
•  | 

915. 

.10190 

13.71 

10. 

8K 

9.1226 

40. 

.10140 

19.71 

OK 

1.5619 

90. 

.10190 

19.71 

OK 

.7107 

90. 

.10190 

19.71 

ex 

9.1226 

45. 

.10190 

19.71 

OK 

9.1226 

195. 

.10190 

19.71 

OK 

9.1226 

225. 

.10140 

19.71 

OK 

9.1226 

915. 

.10190 

19.71 

OK 

SAMPLE 

OATA  CARCS  FOR  AlPHB  -  5.501 

0.250000 

5.5010000 

-0.0106946469551100 

.106 

24.22 

EXTRASTAFF 

.040 

“46. 

.450 

-24.19 

RK2  FCR  5.501  DEG 

• 

| 

9.1226 

| 

90. 

.12741 

19.71 

10. 

10K 

9.1226 

90. 

.12749 

19.71 

1CK 

i 


< 
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L.A  theoretical  study  has  been  conducted  to 
and  forward  flight  on  the  development  of  t> 
blade.  Particular  emphasis  was  placed  or 
In  order  to  facilitate  the  computation  of  th< 
thick  symmetrical  Joukowski  airfoil  was  u 
was  the  scaling  of  the  chordwise  coordinat 
with  span  and  time  in  the  transformed  coo 
layer  equations  were  expanded  in  an  asym 

iet ermine  the  effects  of  rotation,  inflow, 

.e  laminar  boundary  layer  on  a  helicopter 
the  determination  of  the  separation  line, 
s  inviscid. flow  about  the  blade,  an  11.  9%- 
sed.  The  essential  feature  of  the  analysis 
e  so  that  the  separation  line  is  invariant 
rdinate  system.  The  transformed  boundary 
itotic  series  in  span,  and  the  resulting 

leparation.Xjhe  separation  line  delay  is 
Forward  night  causes  an  oscillation  about 
reatest  in  the  first  and  fourth  quadrants, 
angle  of  attack  and  the  inflow  due  to  lift, 
and  the  free-stream  velocity  is  in  qualita- 
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ration  line  greatly.  However,  its  combina- 
ite,  at  least  in  part,  to  the  increase  in 

es. 
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•The  major  effect  of  rotation  isNa  delay  in 
most  pronounced  near  the  axis  of  rotation, 
this  separation  line,  so  that  the  delay  is  g 
The  oscillations  are  affected  by  the  blade 
The  phase  advance  between  the  wall  shear 
tive  agreement  with  the  results  of  Lighthi! 
Rotation  alone  does  not  influence  the  sepa 
tion  with  forward  flight  and  inflow  contrib 
maximum  lift  observed  on  helicopter  bladi 
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